Паскаль. дана строка, содержащая слова, разделенные одним пробелом. напечатать все слова, отличные от последнего слова.

var
  s: string;

begin
  readln(s);
  write(s.Split(' ')[0], ' ');
  foreach s1: string in s.Split(' ') do
    if (s1 <> s.Split(' ')[0]) then
      write(s1, ' ');
end.