Напишите программу которая выводит первое слово строки.

var s: string;
begin
  write('Введите строку: ');
  readln(s);
  s := s + ' ';
  writeln(copy(s, 1, pos(' ', s) - 1));
end.