Помогите с задачей, она вроде простая...., Дана матрица A(n*n). Получить вектор C(n)...... Опции

[Roofless]

Дали вот такую задачу: Дана матрица A(n*n) целых чисел. Получить вектор C(n), элементы которого равны произведениям элементов, стоящих на главной и побочной диагоналях матрицы. В полученном векторе найти min и max элементы. На место min элемента записать 0, а на место max элемента записать max возможное целое число. [b]
Она вроде как простая, но что то не получается; Помогите решить. Если можно с описанием.

[Roofless]

Вот вроде ьы так:

const
nn=9;
Type Matrix=array[1..nn,1..nn] of integer;
     vector=array[1..nn] of integer;
Var n,i,j:integer;
    a:matrix;      {?бе(r)¤­ п ¬ ваЁж }
    b:vector;
Procedure matr(k:integer; var a:matrix; var b:vector);
Var
  i,j,p,s,p1,s1:integer;
Begin
  k:=0;
for i:= 1 to n do
  for j:= 1 to n do begin
  k:=k+1;
  a[i,j]:=k;
  end;
    for i:= 1 to n do
      b[i]:=a[i,i]*a[i,n+1-j];
      s:=0;
      p:=32000;
      for i:= 1 to n do begin
        if s<b[i] then begin
          s:=b[i];
          s1:=i;
          end;
      if p>b[i] then begin
        p:=b[i];
        p1:=i;
      end;
   end;
  b[s1]:=0;
  b[p1]:=32000;
end;

Мне нужно процедуру составить...