Developing.ru

Program Pr02;
uses box,trapeze,simson,crt;
label
 m1;
var
 z,i,n,r,a,b,xa,xb,g: integer;
 x,y:real;
 s: array [1..100] of real;

 ch:char;
begin
 R:=32;  a:=21; b:=35;  xa:=-6; xb:=34; i:=1;
repeat
 writeln('Введите Число разбиений  n');
 readln (n);
 s[i]:=pryamo(n,r,a,b,xa,xb);
 s[i+1]:=trap(n,r,a,b,xa,xb);
 s[i+2]:=sim(n,r,a,b,xa,xb);
 s[i+3]:=n;
 i:=i+4;
 ClrScr;
 writeln ('введите 1 для остановки программы, или 2 для продолжния ');
 readln (ch);

 until ch='1';
 ClrScr;
 writeln(' ------------------------------------------------------- ');
 writeln('| Число разбиений |   Результат                         |');
 writeln('|                 |------------------------------------ |');
 writeln('|       n         |      A     |     B     |      C     |');
 writeln(' ------------------------------------------------------- ');
 z:=1;
 while z<=i-4 do
     begin
     writeln('|      ',s[z+3]:5:3,'     |  ',s[z]:5:3,'  |  ',s[z+1]:5:3,' |  ',s[z+2]:5:3,'  |');
     writeln(' ------------------------------------------------------- ');
     z:=z+4;
     end;
end.

Подскажите пожалуйста как сделать выход из цикла по нажатию клавиши, любой кроме цифр.
Используя readkey, возникают проблемы с readln. Заранее спасибо.
Pascal ABC.

[code]Program Pr02;
uses box,trapeze,simson,crt;
label
m1;
var
z,i,n,r,a,b,xa,xb,g: integer;
x,y:real;
s: array [1..100] of real;

ch:char;
begin
R:=32; a:=21; b:=35; xa:=-6; xb:=34; i:=1;
repeat
writeln('Введите Число разбиений n');
readln (n);
s[i]:=pryamo(n,r,a,b,xa,xb);
s[i+1]:=trap(n,r,a,b,xa,xb);
s[i+2]:=sim(n,r,a,b,xa,xb);
s[i+3]:=n;
i:=i+4;
ClrScr;
writeln ('введите 1 для остановки программы, или 2 для продолжния ');
readln (ch);

until ch='1';
ClrScr;
writeln(' ------------------------------------------------------- ');
writeln('| Число разбиений | Результат |');
writeln('| |------------------------------------ |');
writeln('| n | A | B | C |');
writeln(' ------------------------------------------------------- ');
z:=1;
while z<=i-4 do
begin
writeln('| ',s[z+3]:5:3,' | ',s[z]:5:3,' | ',s[z+1]:5:3,' | ',s[z+2]:5:3,' |');
writeln(' ------------------------------------------------------- ');
z:=z+4;
end;
end.[/code]