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

[Romario]

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

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

[Alex]

Так чуваки!!!Я малясь не то сделал.
Вот то что надо.

Код

program delit;
const n=200;
var i,k,m,l,r:integer;a:array [1..n] of integer;
begin
 write('Введите количество нужных делителей->');
 readln(k);
 r:=0;m:=0;
 for i:=1 to n do begin
   for l:=1 to i do  
     if l mod i=0 then m:=m+1;
   if m=k then begin
     r:=r+1;
     a[r]:=i;
   end;
 end;
 writeln ('Вот числа, у которых кол-во делителей =k->');
 for i:=1 to r do
   write(a[i],' ');
 readln
end.

Сразу говорю, что не проверял.