Скажите, пожалуйста, в чем ошибка? Выдает Program1.pas(32) : Встречен конец файла, а ожидалось ';'

 const n=5;m=4;  
var c:array[1..n,1..m]of integer;  
i,j,sum,p,s,min:integer;  
Begin  
for i:=1 to n do begin  
for j:=1 to m do begin  
c[i,j]:=random(-10,10);  
write(c[i,j]:6);  
end;  
writeln;  
end;  
min:=10;  
For j:=1 to m do begin  
s:=0;  
min:=10;  
For i:=1 to n do begin  
s:=s+c[i,j];  
if c[i,j] < min then begin  
min:=c[i,j];  
p:=i;  
end;  
end;  
c[p,j]:=s;  
end;  
println;  
for i:=1 to n do begin  
for j:=1 to m do begin  
write(c[i,j]:6);  
end;  
writeln;  
end;