по какой то причине прога уходит в бесконечность!

[---Demon---]

В виде процедуры найти наибольшее в столбике

program massiv;
uses crt;
type  mas=array [1..20, 1..20] of integer;

procedure maxel (var a:mas; maxe,m1,m2:integer);
var i,j,m,n:integer;
begin
for j:=1 to n do
begin
maxe:=a[1,j];
m1:=1;
m2:=j;
for i:=2 to m do begin
if a[i,j]>maxe then
begin
maxe:=a[i,j];
m1:=i;
m2:=j;
end;
end;
writeln ('max v stolbce  ', i:2, ' = ', maxe, ' pozicia = ','a[',m1,',',m2,']' );
end;
end;

var c:mas;
var i,j,m,n,sum,max,p1,p2:integer;
var sar:real;
var f:text;
begin
clrscr;
writeln ('kolichestvo strok');
readln (m);
writeln ('koli4estvo stolbcov');
readln (n);
clrscr;
writeln ('vvodite elementy matrici');
for i:=1 to m do begin
for j:=1 to n do begin
write ('c[',i,',',j,']=');
readln (c[i,j]);
end;
end;

clrscr;
for i:=1 to m do begin
for j:=1 to n do begin
write (c[i,j]:4);
end;
writeln;
end;


maxel (c,max,p1,p2);


for j:=1 to n do begin
sum:=sum+c[m,j];
end;
sar:=sum/n;
writeln ('sr. ariphm nizhnei stroki = ',sar:5:3);
assign (f,'matrica.txt');
rewrite (f);
for j:=1 to n do begin
write(f,c[m,j]:4);
end;
close(f);
readln;
end.

[s-andriano]

Посмотрите цикл в 8-й строке.
Дальше не смотрел.