вводится фамилия имя отчество, вывод имя (паскаль)

var  name, surname, patronymic : string;begin  write('Введите фамилию: '); readln(surname);  write('Введите имя: ');         readln(name);  write('Введите отчество: ');  readln(patronymic);  writeln('Имя: ', name);end.