Решение задачи Matrix 62

#include <iostream>
#include <windows.h>
#include <cmath>
#include <iomanip>
#include <fstream>
#include "IOMatrix.h"

using namespace std;

int main ()
{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

  double matr[RMAX][CMAX];
  int nr, nc;
  input (matr,"Matrix62.txt",nr,nc);
  output (matr,nr,nc);
  cout << endl;
  int K;
  cout << "Введите число K:"<< endl;
  cin >> K;                          
  for (int col = K; col < nc; ++col) {  	
	for (int row = 0; row < nr; ++row) {
		matr[row][col-1] = matr[row][col];
	  		 
	}
	cout << endl;
  }
  cout << "Преобразованная матрица" << endl;
  output (matr,nr,--nc);

  system ("pause");
  return 0;
}

program Matrix62;
type
  matrix = array [1..10,1..10] of integer;
 
var
  a:matrix;
  K, M, N, i, j:Integer;
 
procedure DelMatrixColumn(var mat:matrix; X:Integer);
var
 i:integer;
begin
 N:=N-1;
 for j:=X to N do
  for i:=1 to M do
   mat[i,j]:=mat[i,j+1];
end;
 
 
begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 
 Write('K: ');
 Readln(K);
 
 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
 
 DelMatrixColumn(a,K);
 
 for  i:=1 to M do
  begin
   for j:=1 to N do
    begin
     Write(' : ',a[i,j]);
    end;
   writeln(' : ');
  end;
end.