матрица, дали 5 заданией сделать за день ! ((( Опции

[BAEVIK]

в заданной матрице А(ьбт) замените первый положительный элемени минимальным элементом матрицы. Если положительных элементов нет, то вывидите соответствующий текст.

[Lapp]

Не вполне ясно, что значит "первый элемент" в двумерной матрице..
Тут я прохожусь по строкам.

i0:=0;
x:=a[1,1];
for i:=1 to m do for j:=1 to n do begin
  if (i0=0)and(a[i,j]>0) then begin
    i0:=i;
    j0:=j
  end;
  if x<a[i,j] then x:=a[i,j]
end;
if i0>0 then a[i0,j0]:=x else WriteLn('No positive elements');

Вот так примерно..