Помогите с Pascal

Program WorkWithTextFiles;
var
T: text;
i,N, err, A, ps, max: longint;
S: array[1..1000] of String;
begin
Assign(T, 'INPUT.txt');
Reset(T);
i := 1;
repeat
  ReadLn(T, S[i]);
  i := i + 1
until Eof(T);
Close(T);

N := i - 1;
for i := 1 to N do
  WriteLn(S[i]);
for i := 1 to N do
begin
  Val(Copy(S[i], 1, Pos(' ', S[i])), A, err);
  max := A;
  repeat
    ps := Pos(' ', S[i]);
    if ps = 0 then
    begin
          Val(S[i], A, err);
          S[i] :='';
    end      
    else
    begin
         Val(Copy(S[i], 1, Pos(' ', S[i]) - 1), A, err);
         Delete(S[i], 1, Pos(' ', S[i]));
    end;    
    if A > max then
      max := A;
  until length(S[i]) = 0;
  WriteLn('Наибольшее число ', i, '-ой строки: ', max)
end;
end.