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

[Romario]

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

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

[Romario]

хммм, всё оказалось так просто
Тогда вот задачка:
Дана матрица размерности N на M. Найти строку, в которой максимальный элемент минимален в соответствующем столбце.

Я решал так:

Код

uses crt;
const
 par = 2;                      
 rand = 6;                    
label
 1,2,3,4;
var
 matrix: array[1..10,1..10] of integer;
 i,j,r,t,m,n,s: integer;
 min,max: integer;

begin
 clrscr;
 writeln;
 writeln('                         Введите размер матрицы');
 write('    Строк - > ');
 readln(n);
 write(' Столбцов - > ');
 readln(m);
 writeln;
 writeln('                               Ввод матрицы');
 writeln('  Для ввода с клавиатуры нажмите - 1');
 writeln('   Для случайного ввода - 2');

 3: write(' -> ');
 readln(s);
 if (s<1)or(s>2) then goto 3;
 if s=1 then goto 1;
 if s=2 then goto 2;

 1: writeln;
 for i:=1 to n do
 for j:=1 to m do begin
   write('элемент [',i,',',j,'] -> ');
   readln(matrix[i,j]);
 end;
 goto 4;

 2: writeln;
 randomize;
 for i:=1 to n do
   for j:=1 to m do matrix[i,j]:=random(rand);

 4: writeln('                            Матрица');
 for i:=1 to n do
   for j:=1 to m do
     if j<m then write(matrix[i,j]:par)
     else writeln(matrix[i,j]:par);

 max:=matrix[1,1];
 for i:=1 to 1 do
   for j:=1 to m do
     if matrix[i,j]>max then begin
       max:=matrix[i,j];
       r:=j;
     end;

 min:=matrix[1,r];
 for i:=1 to n do
   for j:=r to r do
     if matrix[i,j]<min then min:=matrix[i,j];
 writeln;
 if max = min then writeln(' -> ',max)
 else begin
   writeln(' Такого нет...');
   writeln('   Max = ',max);
   writeln('   Min = ',min);
 end;

 writeln;
 write('Нажмите любую клавишу...');
 readkey;
end.

Хотелось бы узнать у проффесоналов насколько правильно и удобно я её написал да и работает она почему-то через раз... Может заодно ещё и поправите чего