Оброботка масива.найти елемент масива с указанием его адреса в строке и в столбце

[Rokko195]

вот код

 program Mas_2;

{$mode objfpc}{$H+}

uses
  crt;
  
  var
  m: array [1..4,1..4]  of integer;
  k,i,j,min,r:integer;
 sum:integer;
begin
    clrscr;
    randomize;
    for i:=1 to 4 do for j:=1 to 4 do m [i,j]:=random(50);
    writeln('Вывод чисел массива :');
    
    for i:=1 to 4 do begin
    for j:=1 to 4 do  write (m[i,j]:4);
     writeln;
      end;


    min:=m[1,1];
  For i:=1 To 4 Do
     For j:=1 To 4 Do
       If min>=m[i,j] Then min:=m[i,j];


  r:=i;
  k:=j;


      writeln('Мин число массива :',min,' находится в ' ,r,
    ':ряд  ' ,k, ':колонна');
    
    sum:=0;
    for i:=1 to 4 do sum:=sum+m[3,i]; 
    writeln(' сумма чисел   3:ряда   ровна:',sum);


  readln;

end.

не получается . самую большую цифру находит. а мне надо на оборот найти наименьшею.

[Stilet]

а мне надо на оборот

Ну так поменяй знак >= на противоположный.

[Rokko195]

Сообщение от Stilet

Ну так поменяй знак >= на противоположный.

Менял. но проблема осталось. После замены определяет правильно цифру но не определяет где она находится все время указывает 4 строка 4 ряд.
как одно работает другое сбивается.

[Rokko195]

Чет я неправильно делаю. Доросту до индуса.. А там выднее будет..