Точная формулировка задачи. Pascal

[Dellc]

Program Kr_2_3;
Const NMax = 30;
Type DwMass = Array[1..NMax, 1..Nmax] Of Real;
Var  A : DwMass;
     I, J, N, K : Byte;
     M : Real;
Begin
    Write('Введите размеры матрицы и число K ');
    ReadLn(N, K);
    M := 1.7E+38;
    For I := 1 To N Do
     For J := 1 To N do
     Begin
         Write('Введите A[', I, ',', J, '] ');
         ReadLn(A[I, J]);
         If A[I, J] < M Then M := A[I, J]
     End;
    If Abs(M) > 1e-6 Then
     For I := 1 To N Do
     A[I, K] := A[I, K] / M;
    For I := 1 To N Do
    Begin WriteLn;
     For J := 1 To N do
      Write(A[I, J] : 10 : 6)
    End
End.

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

[Hacker19_90]

поделить элементы массива на минимальный элемент!
кривоватенько честно скажу!

[Dellc]

Спасибо огромное!
Если вы про написание программы, то это не я писал, а задачи препод дала, не моя вина...

[Hacker19_90]

Дак я вас и не виню, если что!