строки

[lena-tus]

пожалуйста! очень срочно. уже сегодня сдать задачу помогите решить!
В заданном предложении в каждом слове длиной более 4-х букв удалить два первых и два последних символа. Напечатать полученное предложение. Результат вывести на экран

[TinMan]

Вот, как-то так..

const
  Alphabet: set of char= ['A'..'Z']+['0'..'9'];
  s: string=
    'When I find myself in times of trouble, mother Mary comes to me, speaking words of wisdom, let it be.';
var
  i,l,p: word;

begin
  writeln(s);
  l:= 0;
  p:= Length(s)+1;
  for i:=Length(s) downto 0 do
    if (i>0) and (UpCase(s[i]) in Alphabet) then inc(l) else begin
      if l>4 then begin
        Delete(s,p-2,2);
        Delete(s,i+1,2)
      end;
      {тут пропущен один оператор - догадайся, какой, и вставь};
      p:= i
    end;
  writeln(s);
  readln
end.

А вот протокол ее работы (с правильно вставленным оператором, конечно)

Running "c:\_\dropbox\pas\pf\pf12e15_lena-tus\pf12e15_lena-tus_tm.exe "
When I find myself in times of trouble, mother Mary comes to me, speaking words of wisdom, let it be.
When I find se in m of oub, th Mary m to me, eaki r of sd, let it be.

Будут вопросы - задавай.
Успехов тебе, Лена.