Pascal. Задача 5-7

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