program SwapNames;
var
firstName, lastName, temp: string;
begin
writeln('Enter your first name: ');
readln(firstName);
writeln('Enter your last name: ');
readln(lastName);
writeln('Before swap:');
writeln('First name: ', firstName);
writeln('Last name: ', lastName);
// Swap names
temp := firstName;
firstName := lastName;
lastName := temp;
writeln('After swap:');
writeln('First name: ', firstName);
writeln('Last name: ', lastName);
end.

Программа работает следующим образом: она сначала запрашивает у пользователя ввод имени и фамилии, затем выводит их на экран. После этого происходит обмен значений переменных для имени и фамилии, и программа выводит измененные значения на экране.