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

[-Ольга-]

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

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 graph;
var
  gd, gm: integer;
  i, rnd: integer;

begin
  initgraph(gd, gm, '');
  for i := 1 to 20 do begin
    setcolor(random(15) + 1);
    rnd := random(52);
    outtextxy(random(getmaxx), random(getmaxy),
      chr(rnd + 65 + byte(rnd > 26) * 6));
  end;
  readln;
  closegraph;
end.