[Igor]

repeat
key:=getkeypressed
...
until key=ke_key0;

повторяется до тех пор, пока не нажмешь ноль

P.S. А вообще, почитай немного про обычный паскаль. Советую изучить массивы, записи и циклы, без них никак.
Ещё бы не мешало разобраться с простейшими алгоритмами сортировки и действиях с массивами.