решить задачку Паскаль Дана матрица B4,41 Найти произведение положительных элементов среди элеметов рассположенных выше побочной диагона

Помогите решить задачку (Паскаль)

 

 

Дана матрица  B(4,4)

1)    Найти произведение положительных элементов среди элеметов рассположенных выше побочной диагонали матрицы  B.

2)    Найти минимальный элемент во втором столбце матрицы  B.

3)    Поменять местами найденный минимальный эелемент и значение третьего элемента в четвертой строке.

  • uses crt;
    const n=4;
    var b:array[1..n,1..n] of integer;
    i,j,pr,k,t,min:integer;
    begin
    randomize;
    pr:=1;
    for i:=1 to n do
    for j:=1 to n do
    b[i,j]:=random(100)-50;
    for i:=1 to n do
    begin
    for j:=1 to n do
    write(b[i,j]:3);
    writeln;
    end;
    writeln;
    k:=1;
    t:=3;
    repeat
    for i:=k to k do
    for j:=1 to t do
    if b[i,j]>0 then pr:=b[i,j]*pr;
    inc(k);
    t:=t-1;
    until k=4;
    writeln(pr);
    min:=50;
    for i:=1 to n do
    for j:=2 to 2 do
    if b[i,j]<min then begin min:=b[i,j]; k:=i; t:=j; end;
    writeln(min);
    writeln;
    b[4,3]:=b[4,3]+b[k,t];
    b[k,t]:=b[4,3]-b[k,t];
    b[4,3]:=b[4,3]-b[k,t];
    for i:=1 to n do
    begin
    for j:=1 to n do
    write(b[i,j]:3);
    writeln;
    end;
    writeln;
    end.