Задача о напечатании повторно рандомных символов

[XanderXage]

Задание такое: запросить случайное число (n) затем в одну строку напечатать черным цветом n случайных символов.Напечатать ЭТИ ЖЕ символы еще раз,выделив их цветом.сколько их?

накодил вот что:

  program name;
             uses crt;
             var i,n,a:integer;
             begin
             randomize;
             clrscr;
             writeln ('введите n= (n<101)');
             readln (n);
             for a:=1 to n do
             begin
             i:=random (n);
             write(i  );
             end;
              textcolor (5);
             writeln;
              writeln (i);
              writeln (n);
              end.

что надо впихнуть вместо writeln (i),чтобы напечатало те числа,которые получились в цикле рандома?Новый цикл пробовал,но ведь значения рандомные!а надо эти же!

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[grom333]

Я если Вас правильно понял, нужно теже числа напечатать ниже, но другим цветом?
Если так, то храните рандомные числа в массиве. m[a]:=n;
И уже потом выводите так же циклом FOR

write(m[a]);

[XanderXage]

спасибо!конечный код,вдруг кому понадобится!

        program name;
             uses crt;
             var i,n,a:integer;
            m:array [1..101] of integer;
             begin
             randomize;
             clrscr;
             writeln ('введите n= (n<101)');
             readln (n);
             for a:=1 to n do
             begin
             i:=random (n);
             write(i  );
             m[a]:=i;
             end;
              textcolor (5);
             writeln;
                for a:=1 to n do
                write(m[a]);
                writeln;
              writeln (n);
              end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.