Контрольная работа: Создание электронной записной книжки

end;

until a='q';

writeln('Chto zh vy nadelali...');

readln;

end.

[1] После завершения работы введенные данные не сохраняются.