Ошибка в программе с процедурами. Паскаль

[rooman90]

Задача:
Для матрицы А(5 на 5) сформировать одномерный массив В из 5 элементов. Каждый элемент B[k] принимает значение 1, если все элементы [k]-го столбца матрицы А не превышают значения соответствующего элемента главной диагонали, и значение 0 в противном случае.
Для проверки отсутствия элементов, превышающих значение элемента соответствующего элемента главной диагонали, в произвольном столбце матрицы использовать процедуру.

Program z_42627;
type matr=array[1..5,1..5] of integer;
     mas=array[1..5] of integer;
     var A:matr;
     B:mas;
     Flag:boolean;
     i,j:byte;
     k:integer;
Procedure Pro(A:matr; k:integer; var Flag:boolean);
var i:byte;
begin Flag:=TRUE; i:=1;
while (i<=5) and (Flag=TRUE) do begin
if A[i,k]>A[k,k] then Flag:=False;
i:=i+1;
end;
begin
for i:=1 to 5 do begin for j:=1 to 5 do read(A[i,j]);
readln end; writeln('Ishod_matr A');
for i:=1 to 5 do begin for j:=1 to 5 do
write(A[i,j]:6); writeln end;
for k:=1 to 5 do begin
Pro(A,k,Flag);
if Flag=TRUE then
B[k]:=1 else B[k]:=0;
writeln('Mass B');
for i:=1 to 5 do
write(B[k]:6);
writeln;
end.

Пишет что нужна точка с запятой в последней строчке после end

Если можно напишите сразу результаты программы.

[Sazary]

Program z_42627;
const N=3;
type matr=array[1..N,1..N] of integer;
mas=array[1..N] of integer;
var A : matr;
B : mas;
i,j:byte;
k:integer;

function Pro(A:matr; k:integer) : boolean;
var i:byte;
begin
for i:=1 to N do
 begin
 if A[i,k]>A[k,k] then
  begin
  Pro := false;
  exit;
  end;
 end;
Pro := true;
end;

begin
for i:=1 to N do
 begin
 for j:=1 to N do
  read(A[i,j]);
 readln;
 end;
writeln('Ishod_matr A');

for i:=1 to N do
 begin
 for j:=1 to N do
  write(A[i,j]:6);
 writeln;
 end;

for k:=1 to N do
 if Pro(A,k) then B[k]:=1
 else B[k]:=0;

 writeln('Mass B');
 for i:=1 to N do
  write(B[i]:6);
writeln;
readln;
end.

Значение N изменил на 3, чтобы поменьше вводить:

1
2
3
4
5
6
7
8
9
Ishod_matr A
     1     2     3
     4     5     6
     7     8     9
Mass B
     0     0     1