Проверить имеются ли в заданном тексте слова, начинающиеся на букву «р» и оканчивающиеся на «а». Текст задать в виде файла — Pascal(Паскаль)

program PascalGuru;

var
  i: integer;
  f: text;
  s: string;

function estinet(s: string): boolean;
var
  j, p: integer;
  x: string;
  b: boolean;
begin
  j := 0;
  b := false;
  repeat
    inc(j);
    p := pos(' ', s);
    x := copy(s, 1, p - 1);
    if p = 0 then
      x := s;
    { x - слово }
    if (x[1] = 'р') and (x[length(x)] = 'а') then
      b := true;
    delete(s, 1, p);
  until p = 0;

  estinet := b;
end;

{ ---------------------------- }
begin
  assign(f, 'fail.txt');
  reset(f);
  i := 0;
  while not eof(f) do
  begin
    readln(f, s);
    inc(i);
    if estinet(s) then
      write('V ', i, ' esti')
    else
      write('V ', i, ' net');
    writeln;
  end;

  close(f);
  readln;

end.