{* Удаление последнего слова в строке *}

Unit PAS56193;
Interface
Implementation
Begin
 writeln('Удаление последнего слова в строке');
End.

Program pas56193;

Uses pas56193.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  s   : String;
  len : byte;
  i   : byte;
Begin
  write('String: ');
  readln(s);
  len := length(s);
  For i := len Downto 1 Do
    If s[i] = ' ' Then
    Begin
      delete(s, i, len - i + 1);
      break;
    End;
  writeln(s);
  readln
End.