Определить процедуру записи некоторого слова в обратном порядке и применить её для заданного предложения, «перевернув» в нём все слова — Pascal(Паскаль)

Program PascalGuru;

procedure ex(var s: string);
var
  i: integer;
  x: string;
begin
  x := '';
  For i := 1 to length(s) do
    x := s[i] + x;
  s := x;
end;

{ --------------------------------- }
var
  s, s2, slovo: string;
  f: text;
  p: integer;

begin
  assign(f, 'file.txt');
  reset(f);

  writeln('C faila prochitano i pokazano v obratnom poryadke:');
  writeln;

  while not eof(f) do
  begin
    readln(f, s);

    s2 := '';
    p := pos(' ', s);
    repeat
      slovo := copy(s, 1, p - 1);
      ex(slovo);
      s2 := s2 + slovo + ' ';
      delete(s, 1, p);
      p := pos(' ', s);
    until p = 0;
    ex(s);
    s2 := s2 + s;
    writeln(s2); { результат перевернутой строки }
  end;
  close(f);
  readln;

end.