Двумерный массив на Pascal

[Daniboy]

В квадратной матрице размером T*T, имеющей имя MKA, содержатся целые числа. T - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму отрицательных элементов в каждом стобце. Определить столбец с минимальным по модулю значением этой суммы и вывести его номер на экран.

PS Заранее спасибо!!!

[GetMax]

 MinZ:=High(Integer);
  For j:=1 to T do
  Begin
    SumOtr:=0;
    For i:=1 to T do
    Begin
      If MKA[i,j] < 0 then SumOtr:=SumOtr+MKA[i,j]
    End;
    Writeln(SumOtr);
    If Abs(SumOtr) < MinZ then
    Begin
      MinZ:=Abs(SumOtr);
      jmin:=j
    End;
  End;

[New man]

Естьт вариант

program matrix;
const T=5;
var MKA: array[1..T,1..T] of integer;
      mIN:integer;
          sum:array [1..t]of integer;
     i,j:integer;
begin
  writeln('VVodite');
for i:=1 to T do
begin
for j:=1 to t do
   read(MKa[i,j]);readln
end;
for j:=1 to t do
   begin
 sum[j]:=0;
     for i:=1 to t do
       if mka[j,i]<0 then sum[j]:=mka[j,i]+sum[j];
       writeln('summa v ',j,'stolbe   ',sum[j])
   end;
  Min:=1;
   for i:= 2 to t do
       if abs(sum[i])<abs(sum[Min]) then Min:=i;
   writeln('#', Min);
end.

[Daniboy]

Огромное спасибо!!!!

[Алсунчик]

Дан двумерный массив размерностью Nx(в квадрате) увеличить все элемены находящиеся выше главной диагонали в пять раз.Вывести полученный массив.

[Алсунчик]

написать пограмму которая по номеру дня недели (целому числу от 1 до 7)выводит в качестве результата количество пар вашей группы в этот день с помощью case of.
+ блок схемы
а пары поонедельник-4
вторник 3
среда-пятница 4