помогите изменить прогу на Turbo pascale оочень прошу

[koldun89]

program qq;
uses crt
var
x,y,i:integer;
e:char;
begin
repeat
clrscr;
randomize;
repeat
textcolor(white);
writeln('vvedite x,y,cvet');
readln(x,y,i);
textcolor(i);
until (x<=80) and (y<=40) and (i<=16)
gotoxy (x,y);
writeln(random(100));
e:=readkey;
until e=#27;
end.///НО ДЕЛО В ТОМ ЧТО МНЕ НАДО ИЗМЕНИТЬ ВЫВОД ЧТОБ ВМЕСТО РАНДОМНЫХ ЧИСЕЛ ОН ВЫВОДИЛ допустим выполнил прогу и вывел 5 потом снова выполнил прогу и вывел 4 итд до 0

[Serge_Bliznykov]

бред...

так что ли?

program qq; 
uses crt;
var 
  x,y,i,j:integer; 
  e:char; 
begin 
  clrscr; 
  for j:=5 downto 0 do
  begin
    textcolor(white);
    gotoxy(1,1);
    writeln('vvedite x,y,cvet');
    readln(x,y,i);
    gotoxy(1,2);
    write(' ':80);
    textcolor(i);
    gotoxy (x,y);
    writeln(J);
  end;
end.