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

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