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

#nclude <iostream>
#include <fstream>
using namespace std;

const int RMAX=100;
const int CMAX=100;

void input(double a[][CMAX],const char* name, int& nr, int& nc)
{
    ifstream in (name);
	//cout << "Введите количество строк и столбцов матрицы: ";
	//cin >> nr >> nc;
	for (int row = 0; row < nr; ++row) {
		for (int col = 0; col < nc; ++col) {
			in >> a[row][col];
			
		}
	}
	in.close();
}

void output(const double a[][CMAX],int nr, int nc)
{
	for (int row = 0; row < nr; ++row) {
		for (int col = 0; col < nc; ++col) {
			cout << '\t' << a[row][col] << " ";
		}
		cout << endl;
	}
}

void input(int a[][CMAX],const char* name, int& nr, int& nc)
{
    ifstream in (name);
	//cout << "Введите количество строк и столбцов матрицы: ";
	//cin >> nr >> nc;
	for (int row = 0; row < nr; ++row) {
		for (int col = 0; col < nc; ++col) {
			in >> a[row][col];
			
		}
	}
	in.close();
}

void output(const int a[][CMAX],int nr, int nc)
{
	for (int row = 0; row < nr; ++row) {
		for (int col = 0; col < nc; ++col) {
			cout << '\t' << a[row][col] << " ";
		}
		cout << endl;
	}
}

program Matrix24;
var
  a:array [1..10,1..10] of integer;
  Max,M, N, i, j:Integer;
 
begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 
 
 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
 
 for  j:=1 to N do
  begin
   writeln(j,': ');
   Max:=a[1,j];
   for i:=2 to M do
    begin
     if a[i,j]>Max then Max:=a[i,j];
    end;
   writeln('Масимальный элемент:',Max);
  end;
end.