Напишите, пожалуйста, программу-диалог в программе Pascal ABC

что конкретно нужно?

Программа-диалог будет выглядеть так:

Program dialog
var x:string;
begin
readln(x);
if x='Привет' then writeln('Привет!')
if x='Как дела?' then writeln('У меня всё хорошо')
readln;
end.

Строчек if x='текст' then writeln('текст') можно вставлять сколько угодно с любым (но не слишком длинным) текстом.
Суть программы - пользователь вводит сообщение, программа ему отвечает, получается диалог с компьютером.

var a,b,c,d:string;
begin
writeln('Как тебя зовут ?');
readln(a);
writeln('Привет ',a,' !');
writeln('Сколько тебе лет? ');
readln(b);
writeln('Какой у тебя любимый предмет в школе ?');
readln(c);
writeln('Какая у тебя любимая книга ?');
readln(d);
write ('Значит тебя зовут ',a ,'. Тебе ',b,'. Твой любимый предмет - ',c,'. И твоя любимая книга - ',d);
readln();
end.