Паскаль

[Фяниль]

из заданной строки выделить подстроку длиной 6 знаков(либо до конца строки,если осталось меньше),которая начинается с первой встретившейся в строке буквы "f".распечатать эту строку или выдать сообщение что ее нет.

[whatever]

var
  s:string;
begin
  readln(S);
  if pos('f',s)=0 then
    begin
      writeln('"выдать сообщение что ее нет"');
      readln;
      halt;
    end;
  s:=copy(S,pos('f',s),6);
  writeln(S);
  readln
end.