Pascal. Задача 5-8

var
  sin :string;
  i, p : integer;
begin
  write('Введите текст: ');
  read(sin);
  i := Length(sin);
  while sin[i] = ' ' do Dec(i);
  p := i - 1;
  while (p > 0) AND (sin[p] <> ' ')
    do Dec(p);
  writeln(Copy(sin, p + 1, i - p));
end.