Бесконечный цикл (Pascal)

[_fynjy_]

Нужна помощь

program rand;
uses crt;
var a,b,c,c1:integer;
begin
textbackground(black);
ClrScr;
TextColor (white);
writeln('Дано выражение:');
while true do begin
randomize;
TextColor (white);
a := random(100)+1;
b := random(a)+1;
write(a,'-',b,'='); readln(c);
c1:=a-b;
if  c=c1 then begin
textcolor (green);
writeln('Да');
delay(500);
end
else begin
textcolor (red);
writeln('Нет');
delay(1000);
end;
end;
end.

как мне сделать так чтобы при правильном ответе паскаль менял цвет ответа, тоесть if c=c1 перекрасить ответ в зелёный цвет
else в красный?

[_fynjy_]

Repeat
  randomize;
textbackground(black);
TextColor (white);
a := random(100)+1;
b := random(a)+1;
write(a,'-',b,'='); readln(c);
c1:=a-b;
 Until (c=c1) or (c<>c1);

добавлял это но он повторяется только 1 раз

[Mad_Cat]

program rand;
uses crt;
var a,b,c,c1:integer;
begin
while true do begin
randomize;
a := random(100)+1;
b := random(a)+1;
clrscr;
writeln('Дано выражение');
write(a,'-',b,'='); readln(c);
c1:=a-b;
if  c=c1 then begin
textcolor (green);
write('Верно!');
end
else begin
write('Попробуйте снова');
end; readln;end;
end.

[_fynjy_]

всё решил))
ООО спасибо, даже есть способ покороче, я просто цикл поставил правильный))

[_fynjy_]

Нужна помощь

program rand;
uses crt;
var a,b,c,c1:integer;
begin
textbackground(black);
ClrScr;
TextColor (white);
writeln('Дано выражение:');
while true do begin
randomize;
TextColor (white);
a := random(100)+1;
b := random(a)+1;
write(a,'-',b,'='); readln(c);
c1:=a-b;
if  c=c1 then begin
textcolor (green);
writeln('Да');
delay(500);
end
else begin
textcolor (red);
writeln('Нет');
delay(1000);
end;
end;
end.

как мне сделать так чтобы при правильном ответе паскаль менял цвет ответа, тоесть if c=c1 перекрасить ответ в зелёный цвет
else в красный?