Как менять цвет слов? (Pascal)

[_fynjy_]

Нужна помощь,
как мне сделать так чтобы при правильном ответе паскаль менял цвет ответа, тоесть if c=a-b перекрасить вводимое число пользователем (с) в зелёный цвет
else в красный?

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);
if  c=a-b; then begin
textcolor (green);
writeln('Да');  {Как сделать так чтобы он тут менял цвет вводимого ответа на зелёный?}
delay(500);
end
else begin
textcolor (red);
writeln('Нет');  {А тут на красный?}
delay(1000);
end;end;end.

[Hacker19_90]

Только с помощью gotoxy ставте курсор на место числа и выводите заного!

[_fynjy_]

мы такого не проходили(

[Hacker19_90]

gotoxy( x, y: integer)
Этой функции передаёшь координаты! Координаты в досе начинаются с левого верхнего угла!
Вот смотришь на какой строчке стоит нужная строка = это координата y, потом скок отступ от края =это координата x! Запомни считаются координаты не по пикселям а по символам!
Ну вот нашёл координаты! Теперь меняешь координату курсора, цвет текста, и выводишь текст! Он перерисует старый на новый.

[_fynjy_]

Спасибо, поробую сначала на простом примере