главную диагональ матрицы умножить на модуль её минимального элемента delphi

[Antidelphik_)]

там задание такое "Составить функцию для определения минимального элемен¬та матрицы 4х4. Используя данную функцию, определить значение мини¬мального элемента заданной матрицы и, если оно отлично от нуля, увеличить каждый элемент главной диагонали матри¬цы на модуль этого значения и вывести полученную матрицу на экран. В противном случае отпечатать сообщение "Элемент не равен нулю"."
Сама я набросала бред сивой ослицы, но вот он:
VAR A:ARRAY [1..4,1..4] OF REAL;
i,j:BYTE; min:REAL;
FUNCTION MinMatr (M:ARRAY [1..4,1..4] OF REAL; X:REAL:REAL;

begin
for i:=1 to 4 do
for j:=1 to 4 do
A[i,j]:=RANDOM;
X:=A[1,1];

for i:=1 to 4 do
for j:=2 to 4 do
if A[i,j]<min then
X:=A[i,j];
Result:=X;
end;

for i:=1 to 4 do
for j:=1 to 4 do
A[i,j]:=RANDOM;
MinMatr ( A:ARRAY [1..4,1..4] OF REAL;min:REAL; );

тут блин ошибки в каждой строке, а как с функциями работать я вообще не знаю =( по-методичке почитала, что поняла, то и написала, как это делается? я впервые за delphi, я только в Паскале до него работала, а Делфи надо освоить кровь из носу как

[Antidelphik_)]

ой, то есть я так полагаю там "элемент равен нулю" как раз таки.

[REALIST07]

Сформулируйте вопрос четко и понятно!

[Antidelphik_)]

Да куда четче-то? мне нужно составить функцию, для определения минимального элемента матрицы, потом вызвать её в основную программу, использовать для своей матрицы, а потом ещё главную диагональ (это как я поняла через условие i:=j) умножить на модуль этого минимального значения =) вооот

[Antidelphik_)]

Проблема в том, что я плохо работаю с функциями, а вернее вообще никак, я понимаю, что там в скобочках после слова FUNCTION описываются локальные переменные, это я понимаю, как их в самой функции использовать тоже понимаю, ибо функция это маленькая программа внутри большой, а вот как потом это минимальное значение, которое я получаю,вытащить из функции, чтобы умножить на главную диагональ не понимаю

[REALIST07]

Блин щас уже спать хочется,попробуй через указатели передавать,погугли,если до завтра можно подождать то помогу

[Antidelphik_)]

конечно можно =) самой уже спать хочется. Спокойной ночи и спасибо )

[Antidelphik_)]

да и =( я ещё матрицы выводить не умею =( в паскале это так легко было, через writeln, а тут какие-то метки, заголовки, ещё чё-то блин, ничего не понятно

[romec1]

если подойдет, на сишке могу написать.... мдэ.. вы какой курс, мне интересно узнать?) задание то детское...

[VadikV]

FUNCTION MinMatr (var M:ARRAY [1..4,1..4] OF REAL) : REAL;
VAR 
   i,j:BYTE; 
   min:REAL;
begin
   min:=M[1,1];
   for i:=1 to 4 do
      for j:=1 to 4 do
         if M[i,j]<min then
            min:=M[i,j];
   MinMatr := min;
end;

VAR 
   A:ARRAY [1..4,1..4] OF REAL;
   i,j:BYTE; 
   min:REAL;
begin
   randomize;
   for i:=1 to 4 do
      for j:=1 to 4 do
         A[i,j]:=RANDOM;

   min := MinMatr(A);
   if min <> 0 then begin
      min := Abs(min);
      for i:=1 to 4 do
         A[i,i]:=A[i,i] + min;
   end;

Вывод матрицы на экран уже напиши сам.