Составить программу, запрашивающую имя Вашего друга (ввод с клавиатуры) и выводящую на экран сообщение: "Вашего лучшего друга зовут..."
Помогите пожалуйста

Program Abc;

uses crt;

var name : string;

begin

write('Как завут вашего друга?');

readln(name);

write('Вашего друга зовут ', name,'.');

end.