С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая выводит сначала фамилию, а затем имя.

var

a, d, e: string;

b, c: integer;

begin

write (' введите имя и фамилию одной строкой ');

readln (a);

b : = length (a); / / находим длину всей исходной строки

c: = pos (' ', a); / / находим позицию пробела в ней

e : = copy (a, 1, c - 1); / / копируем символы от первого до позиции пробела, что является именем

d : = copy (a, c + 1, b); / / копируем от первого символа после пробела до конца, что является фамилией

writeln (' фамилия: ', d, ' имя: ', e); / / выводим ответ, вначале фамилию, потом имя

end.