В заданном тексте найти самое длинное слово — Pascal(Паскаль)

program PascalGuru;

var
  p: integer; { описание переменных }
  i, j, n, max: integer;
  s, x: string;
  A: array [1 .. 100] of string;

begin
  write('Vvedite stroky (cerez probel): ');
  readln(s);
  j := 0;
  repeat
    inc(j);
    p := pos(' ', s);
    x := copy(s, 1, p - 1);
    A[j] := x;
    delete(s, 1, p);
  until p = 0;
  n := j;
  A[n] := s;
  { ---------------- }

  max := 1;
  for i := 2 to n do
    if length(A[i]) > length(A[max]) then
      max := i;

  writeln('Samoe dlinnoe slovo: ', A[max]);

  readln;

end.