ошибкию паскаль. двумерные массивы

uses crt;
var matr: array [1..5,1..5] of integer;
var i,j: integer;
var max: integer;
begin
clrscr;
Randomize;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
matr[i,j]:=Random(101)-50;
end;
end;
Writeln('Ishodnaya matritca:');
for i:=1 to 5 do begin
writeln('');
for j:=1 to 5 do
Write(matr[i,j]:5,' ');
end;
max:=matr[1,1];
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if matr[i,j]>max then begin
max:=matr[i,j];
end;
end;
end;
writeln('');
Writeln('Max element matrici ', max);
for i:=1 to 5 do begin
for j:=1 to 5 do
if matr[i,j] mod 2<>0 then
matr[i,j]:=max;
end;
Writeln('Preobrazovannaya matritca:');
for i:=1 to 5 do begin
writeln('');
for j:=1 to 5 do
Write(matr[i,j]:5,' ');
end;
readln;
end.

uses crt;
var matr: array [1..5,1..5] of integer;
var i,j,index: integer;
var max: integer;
begin
clrscr;
Randomize;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
matr[i,j]:=Random(101)-50;
end;
end;
Writeln('Ishodnaya matritca:');
for i:=1 to 5 do begin
writeln('');
for j:=1 to 5 do
Write(matr[i,j]:5,' ');
end;
for i:=1 to 5 do begin
max:=matr[i,1];
index:=1;
for j:=1 to 5 do begin
if matr[i,j]>max then begin
max:=matr[i,j];
index:=j;
end;
end;
writeln('');
Writeln('Max element stroki ',i,' raven ',max, ' ego index v stroke ',index);
end;
readln;
end.

uses crt;
var i,j,k,n,m: integer;
var matr: array [1..20] of array [1..20] of integer;
begin
clrscr;
Randomize;
writeln('Vvedite kol-vo strok:');
readln(n);
writeln('Vvedite kol-vo stolbtcov:');
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
matr[i,j]:=Random(101)-50;
end;
end;
Writeln('Ishodnaya matritca:');
for i:=1 to n do begin
writeln('');
for j:=1 to m do
Write(matr[i,j]:5,' ');
end;
writeln('');
writeln('Vvedite nomer stroki:');
readln(k);
writeln('Preobrazovannaya matritca:');
for i:=1 to n do begin
if i<>k then
begin
writeln('');
for j:=1 to m do
Write(matr[i,j]:5,' ');
end;
end;
readln;
end.