Взаданном тексте перевернуть каждое слово программу сделать с процедур текст набить вручную(не больше 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.