Матрица Язык (Паскаль)

[Азарт]

Дана действительная квадратная матрица размером n x m, все элементы которой различны. В каждой строке выделяется элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать индексы элемента с найденным значением.


плз решите кто нить...
просто на платников денег нет, а сам паскаль ваще не знаю...

[alex_fcsm]

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,mini,minj,tempi,tempj:integer;
    

begin
 for i:=1 to n do
  begin
    for j:=1 to n do
     begin
      a[i,j]:=random(100);
      write(a[i,j]:5);
     end;
    writeln;
  end;
mini:=1;
minj:=1;
for j:=2 to n do
 if a[1,j]<a[i,minj] then minj:=j;
for i:=2 to n do
 begin
  tempj:=1;
  tempi:=i;
  for j:=2 to n do
   if a[i,j]<a[i,tempj] then tempj:=j;
   if a[mini,minj]<a[tempi,tempj] then begin
                                        mini:=tempi;
                                        minj:=tempj;
                                       end;
   
 end;
 writeln('Максимум среди минимумов - [',mini,',',minj,']');
 
end.