Вопросы от Ромарио! Опции

[Romario]

Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:

• Как в Паскале менять цвета?
  
• Как  --//-- создать таблицу и что-нить в ней написать.
  
• И может кто-нить меня раздуплит в массивах? ;D

[Alex]

Код

const n=5;
var a:array[1..n,1..n] of integer;
i,j,sum:integer;
begin
 sum:=0;
 for i:=1 to n do
   for j:=1 to n do begin
     write('a[i,j]=');
     readln(a[i,j]);
     if (j>i)and(a[i,j]>0) then sum:=sum+a[i,j];
   end;
 writeln('Сумма положительных эл выше глав диаг равна ',sum);
 readln
end.