Матрицы в Паскале

[KISA713]

Помогите пожалуйста,ни как не получается матрица в паскале( задание:Дана матрица А [1:5; 1:5]. Если произведение элементов первой строки матрицы меньше суммы элементов последнего столбца, то все элементы матрицы пересчитать по правилу:
А(i,j)= A(i,j)∙(i+j). Иначе удалить третью строку и третий столбец.
Большое спасибо заранее!)

[Sparkman]

uses crt;
const n=5;
var A:array[1..n,1..n] of integer;
    i,j,p,s:integer;
begin
     clrscr;
     randomize;
     writeln('Matrix:');
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
               A[i,j]:=random(10)-5;
               write(A[i,j]:3);
          end;
          writeln;
     end;
     p:=1;
     for j:=1 to n do
     p:=p*A[1,j];
     writeln('proizvedenie 1 stroki p=',p);

     for i:=1 to n do
     s:=s+A[i,n];
     writeln('summa poslednego stolbca s=',s);

     writeln;
     writeln('Result:');
     if p<s then
     begin
          writeln('p<s');
          for i:=1 to n do
          begin
               for j:=1 to n do
               begin
                    A[i,j]:=A[i,j]*(i+j);
                    write(A[i,j]:4);
               end;
               writeln;
               writeln;
          end;
     end else
     begin
          writeln('p>=s');
          for i:=3 to n-1 do
          for j:=1 to n do
          A[i,j]:=A[i+1,j];

          for j:=3 to n-1 do
          for i:=1 to n-1 do
          A[i,j]:=A[i,j+1];

          for i:=1 to n-1 do
          begin
               for j:=1 to n-1 do
               write(A[i,j]:3);
               writeln;
          end;
     end;
     readln;
end.

[KISA713]

Спасибо большое!))

[KISA713]

Помогите еще с одной матрицей пожалуйста)
Дана матрица А[1:3; 1:4]

а) найти разность сумм элементов, попадающих в интервалы [0 5] и [5 15]

б) найти номер минимального элемента в третьем столбце.

в) заменить min элемент в 4-ом столбце на min элемент в третьем столбце.

г) получить среднеарифметическое значение последних 10-ти элементов матрицы.