Скажите, пожалуйста, в чем ошибка? Выдает 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;