Pascalban hogyan lehet megválaszolható kérdést irni?

program akarmi;

uses crt;

var valasz:char;

begin

[...]

repeat

[...]

writeln('Még egy kör? : ');

valasz:=ReadKey;

until valasz in ['i'..'I'];

end.

Vagy valami ilyesmi.

program elso; {Elso program}

uses Crt;

var

a,b,c,x1,x2,d:real;

Valasz : char;

Begin

repeat

clrscr;

Writeln('Krem az ax^2+bx+c=0 alak m sodfok egyenlet egytthatit!');

Writeln;

Write('a='); Readln(a); {REAL}

Write('b='); Readln(b);

Write('c='); Readln(c);

d:=sqr(b)-4*a*c;

writeln('Delta: ',d);

If d>0 then

begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln('Az egyenlet gykei :');

writeln('x1= ',x1:6:2,' x2= ',x2:6:2);

end

else

begin

if d=0 then

begin

x1:=-b/(2*a);

writeln('A kt gyk egyenl :'); writeln;

writeln('x1=x2=',x1);

end

else

writeln('Az egyenletnek nincs vals megold sa!!');

end;

Writeln;

writeln('Mégegy kör (I/N)? : ');

Valasz:=Readkey();

until valasz in ['i'..'I'];

Writeln('Nyomj entert a kilepeshez');

Readln;

End.