Вывести вектор, элементы которого являются наибольшими числами каждой строки матрицы. Матрица в файле — Pascal(Паскаль)

5
 5  6 12 13 45
12 15  6 18 40
21  3 41 25 23
12  9 14 26 11
 3  8  9 12 23

uses crt;
type matr=array[1..20,1..20] of integer;
     vec=array[1..20] of integer;
procedure Vyvod_matrix(var F:text; var a:matr; var n:byte);
var i,j:byte;
begin
assign(F,'matr.txt');
reset(F);
read(f,n);//читаем размер
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(F,a[i,j]);//читаем матрицу
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
close(F);
end;
 
procedure Vector(a:matr;n:byte;var b:vec);
var i,j:byte;
    mx:integer;
begin
for i:=1 to n do
 begin
   mx:=a[i,1];;
   for j:=2 to n do
   if a[i,j]>mx then mx:=a[i,j];
   b[i]:=mx;
end;
writeln('Вектор максимальных значений строк матрицы:');
for i:=1 to n do
write(b[i]:4);
readln
end;
var y:text;
    a:matr;
    b:vec;
    n:byte;
begin
clrscr;
Vyvod_matrix(y,a,n);
Vector(a,n,b);
end.