Составьте диалог программу на Паскале

Спасибо большое!!!!

var   elm:string;begin  write('Привет! ');  writeln('Меня зовут Аня :)');  write('А тебя как зовут? ');  readln(elm);  writeln('Приятно познакомиться, ',elm,'!');    write('Сколько тебе лет? ');  readln(elm);  writeln('О! Уже ', elm, '!');    write('А где ты живёшь? ');  readln(elm);  writeln('Так мы соседи. Я ведь тоже живу ', elm);    write('А чем ты увлекаешься? ');  readln(elm);  writeln('Супер! Я всегда хотела тоже заняться ', elm);   write('Приятно было познакомится :) ');  readln(elm);  writeln(elm,'!!!');end.