Помогите решить, текстовый режим Опции

[-Ольга-]

помогите решить!!! есть программа, которая выводит на весь экран точки произвольного цвета. Необходимо, чтобы вместо точек выводило латинские буквы в произвольном порядке

Program L;
uses graph;
var
i,x,y,c:integer;
begin
DetectGraph(x,y);
InitGraph(x,y,'c:\tp7\BGI\');
for i:=1 to 5000 do
begin
x:=Random(640);
y:=Random(480);
c:=Random(15);
PutPixel(x,y,c);
end;
readln;
end.

[volvo]

Ну, например, так:

uses crt;

var
  i, rnd: integer;


begin
  for i := 1 to 20 do begin
    textcolor(random(15) + 1);
    rnd := random(52);
    gotoxy(random(80) + 1, random(25) + 1);
    write(chr(rnd + 65 + byte(rnd > 26) * 6));
  end;
  readln;
  textcolor(lightgray); { <--- Восстанавливаем цвет по умолчанию }
end.