Удаление первого и последнего символа в каждом слове на Pascal

[С_Екатерина]

Помогите, пожалуйста, со 2 уровнем этого задания

[ViktorR]

Просматриваем строку s_old до конца (длина строки - функция ...) по символам.
Каждый символ, соответствующий буквам, копируем в новую строку s_new до обнаружения не буквенного символа - формируем слово.
Выполняем копирование части слова: начинаем со второго символа и заканчиваем len - 1, где len - длина слова.
Очищаем s_new.
Продолжаем просматривать s_old.
...

PS: Проверять принадлежность множеству можно через созданное множество не буквенных символов (оператор in).

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
    d:boolean;
    c:set of char;
begin
   s:=Edit1.Text;
   c:=['А'..'я'];
   d:=false;
   For i:=Length(s) downto 1 do
   begin
      If not d and (s[i] in c) then
      begin
         d:=true;
         Delete(s,i,1);
         Continue;
      end;
      If d and (s[i]=' ') then
      begin
         Delete(s,i+1,1);
         d:=false;
      end;
      If d and (i=1) then
         Delete(s,i,1);
   end;
   Label1.Caption:=s;
end;