Помогите составить задачу в Delphi

Доброго времени суток.

И в делфи, и в паскале будет одинаково. Вот только

Матрица (matrix) - это прямоугольный массив элементов, чаще всего
чисел. Матрицу, имеющую m строк и n столбцов, матрицей размерностью m на n (в некоторых источниках размерность называют структурой матрицы) . (обозначается m×n). http://www.damateur.narod.ru/pages/5_Annex/5_1_Math_Matrix.htm

И в свете этого кусок кода будет таким

MaxN := A[1,1];
MinN := A[1,1];
MinR := 0; {строка}
MinC := 0; {столбец}
for i:=1 to m do {цикл по строкам}
for j:=1 to n do begin {цикл по столбцам}
if (A[i,j] > MaxN) then MaxN := A[i,j]; {определяем максимальный элемент}
if (A[i,j] < MinN) then begin {поиск строк и столбцов с мин. элементом}
MinN := A[i,j];
MinR := i;
MinC := j;
end;
end;

for i:=1 to n do A[MinR,i] := MaxN;

Удачи!

Не знаю как на Delphi, но на паскале будет выглядеть приблизительно так:
***
Max:=A[1,1];
Min:=A[1,1];
iMin:=0;
jMin:=0;
for i:=1 to n do
for j:=1 to m do
begin
if (A[i,j] > max) then Max:=A[i,j];
if (A[i,j] < min) then
begin
Min:=A[i,j];iMin:=i;jMin:=j;
end;

end;
for i:=1 to n do
for j:=1 to m do
if (i=iMin) then A[i,j]:=Max;
***

ну в цикле перебираешь все значения и проверяешь какое меньшее, потом как нашел, запоминаешь число и номер строки. В другом цикле по всем столбцам и по номеру сохраненной строки присваеваешь всем ячейкам сохраненное число

unit leastelement;
interface
uses Math, Ap, Sysutils;

function FindLeastElement(const a : TReal1DArray; const N : Integer):Integer;

implementation

(*************************************************************************
Функция для поиска наименьшего элемента.
Принимает:
*массив значений a с индексами элементов от 0 до N-1
*число элементов N
Возвращает:
*номер наименьшего элемента
*************************************************************************)
function FindLeastElement(const a : TReal1DArray; const N : Integer):Integer;
var
I : Integer;
begin
result := 0;
I:=1;
while I<=N-1 do
begin
if a[result]>a then
begin
result := i;
end;
Inc(I);
end;
end;

end.