задача на массивы

uses crt;
type Tmatr=array[1..50,1..50] of real; {тип матрицы}
procedure Max(x,y:byte;mt:Tmatr);{процедура поиска максимального в нечетных строках}
var i,j:byte;
    max:real;
begin
for i:=1 to x do
if odd(i) then{если строка нечетная}
  begin
   max:=mt[i,1];
   for j:=1 to y do
   if mt[i,j]>max then max:=mt[i,j];{ищем максимум}
   writeln('Max el v stroke ',i,'=',max:0:2);{выводим на экран}
  end;
writeln;
end;
procedure Summ(x,y:byte;mt:Tmatr);{процедура определения суммы в четных столбцах}
var i,j:byte;
    sum:real;
begin
for j:=2 to y do
if not odd(j) then {если четный}
  begin
    sum:=0;
    for i:=1 to x do
    sum:=sum+mt[i,j];{считаем сумму}
    writeln('Summa  v stolbce ',j,'=',sum:0:2);{выводим на экран}
  end;
writeln;
end;
 
var f:text;{переменная для связи с файлом на диске}
    m,n,i,j:byte;
    a:Tmatr;
begin
clrscr;
assign(f,'file1.txt');{связываем}
reset(f);{открываем файл для чтения}
read(f,n);{читаем первое число(кол. строк)}
read(f,m);{читаем второе число(кол. столбцов)}}
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
       read(f,a[i,j]);{читаем собственно матрицу}
       write(a[i,j]:5:2);
      end;
    writeln;
  end;
writeln;
Max(n,m,a);
Summ(n,m,a);
Close(f);
readln
end.