Дана матрица n*m, состоящая из натуральных чисел. найти в строках самые правые наименьшие элементы и определить их местоположение

Const nx=30; mx=30;var r:array[1..nx,1..mx] of integer;i,j,n,m,k,min:integer;
beginrandomize;write('Введите n и m: ');readln(n, m);
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to m dobeginr[i,j]:=random(78)-17;write(r[i,j]:4);end;writeln;end;min:=100;for i:=1 to n do beginfor j:=1 to m do beginif min > r[i,j] then beginmin := r[i,j];k:=j;end;end;write(' min =':8,min:4,' k= ',k:3);writeln; min:=100;k:=0;end;end.