Необходимо написать программку в Pascal039;е. Задание описано так. Нужно выделить из

Var
  s: string;
  i: integer;
  qp: integer;
  word: string;
begin
writeln('Введите предложение деля слова пробелами');
readln(s);
qp:=0;
word:='';
for i:=1 to length(s) do begin
  if s[i]=' ' then
    qp:=qp+1
  else begin
     if qp=3 then word:=word+s[i];
  end;
  if qp=4 then
     break;
end;
if word='' then
  writeln('четвёртое слово не находится')
else
  writeln('разыскиваемое слово - ', word);

end.

Пример
На pascal написана подходящая программка 
разыскиваемое слово - соответствующая