вывести вектор, элементы которого являются наибольшими числами каждой строки матрицы

[Artur1992]

uses crt;
const n=5;
var y:text; d:string; a:array[1..n,1..n]of integer;
b:array[1..n]of integer;
i,j,im:integer;

procedure Vyvod_matrix(var F:text; s: String);
begin
assign(F,'matr.txt');
reset(F);
while not eof(F) do
begin
readln(F,s);
writeln(s);
end;
close(F);
end;

procedure poisk;
begin
for i:=1 to n do
begin
im:=1;
for j:=2 to n do
if a[i,j]>a[i,im] then im:=j;
b[i]:=a[i,im];
end;
writeln('Результат');
for i:=1 to n do
write(b[i]:4);
readln;
end;

begin
Vyvod_matrix(y, d);
poisk;
end.
Как мне сделать так,чтобы выводились числа, а не нули. Заранее благодарю.

[GetMax]

Uses CRT;
Var
  Matr:array[1..5,1..5] of Byte;
  Vektor:array[1..5] of Byte;
  Txt:Text;
  Stroka:Char;
Procedure Vivod_iz(Var F:text;S:Char);
Var
  i,j:Byte;
Begin
  Assign(F,'Vekt.txt');
  Reset(F);
  For i:=1 to 5 do
  Begin
    For j:=1 to 5 do
    Begin
      Read(F,Matr[i,j],S);
      Write(Matr[i,j]:3)
    End;
    Writeln;
  End;
  Close(F);
End;
Procedure Poisk;
Var
  m,n,p,max:byte;
Begin
  p:=0;
  For m:=1 to 5 do
  Begin
    Max:=Low(Byte);
    For n:=1 to 5 do
    Begin
      If Matr[m,n] > Max then Max:=Matr[m,n]
    End;
    Inc(p);
    Vektor[p]:=Max
  End;
  For p:=1 to 5 do Write(Vektor[p]:3)
End;
Begin
  Vivod_iz(Txt,Stroka);
  Poisk;
  Readln
End.