[mak-karpov]

Помогите, чем можете!
У меня есть 2 массива

Код:

var
    XOut : array [0..23] of string;
    XClr  : array [0..23,0..78] of integer;

Проблема в том, что эти массивы надо вывести на экран (и переодически обновлять)(10 раз в секунду).

Код:

procedure XScreenOut;
var x,y : integer
begin
    ClrScr;
    for y := 0 to 23 do
        for x := 0 to 78 do begin
            if XClr[y,x] = 1 then begin
                TextColor(Back);
                TextBackground(Fore);
            end;
            if x = 78 then writeln(XOut[y,x])
                        else write(XOut[y,x]);
            if XClr[y,x] = 1 then begin
                TextColor(Fore);
                TextBackground(Back);
            end;
end;

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