Интэрфейс для програмы

Здравствуйте, мне нужно срочно сделать интерфейс для програмы в Pascal, знаю что в паскале не можно сделать хороший интерфейс но нужно как лучше. Вот программа:

[FONT="Arial Black"]Uses crt;
var a:array[1..10,1..12] of integer;
s,x,y: integer;
begin
s:=0;
clrscr; randomize;
textcolor(LightGray);
for x:=1 to 10 do
Begin
for y:=1 to 12 do
Begin
a[x,y]:= random(90)+10;
If a[x,y]<50 Then Inc(s);
Write(a[x,y]:3);
End;
WriteLn;
End;
ReadLn; {ожидание нажатия на Enter}
for x:=1 to 10 do
Begin
for y:=1 to 12 do
Begin
textcolor(LightGray);
If (y<>1) and (y<>12) Then
if (Not Odd(a[x,y-1])) and (Not Odd(a[x,y+1])) then TextColor(White)
Else textColor(LightGray);
Write(a[x,y]:3);
End;
WriteLn;
End;
textcolor(Green); write(' Кол-во чисел меньше 50 = ',s);
readkey;
end.[/FONT]

Заранее спасибо.