Color Table for Pascal

program color_table;
uses crt;
const TXT = 'TEST ';
      MAX_TEXTCOLOR = 15;
      MAX_BACKCOLOR = 7;
var x, y : byte;

begin
    for y:=0 to MAX_BACKCOLOR do
        write(y:3, ' ':Length(TXT)+1);
    writeln;
    for x:=0 to MAX_TEXTCOLOR do begin
        TextColor(x);
        for y:=0 to MAX_BACKCOLOR do begin
            TextBackground(y);
            write(x:3, TXT:Length(TXT)+1);
        end;
        writeln;
    end;
    {$IFDEF win32} readln; {$ENDIF}
end.