В заданном тексте перевернуть каждое слово

Программу сделать с помощью процедур

Текст набить вручную (не больше 10 слов).

pascal

program z40; uses crt; var a, b, c : string; i : longint; begin clrscr; write ('Введите слово: '); readln (a); b:=''; for i:=1 to length (a) do b:=a[i]+b; { переворачиваем слово } if a=b then write ('перевертыш') else write ('не перевертыш'); readln; end.