StaPon_1

Var
    K: Array [1..8, 1..6] Of Integer;
    I, J, M, MPI, MPJ: Integer;
Begin
    Randomize;
    WriteLn('Исходный массив:');
    For J:= 1 To 6 Do Begin
      For I:= 1 To 8 Do Begin
        K[I, J]:= Integer(Random(26)) - 10;
        Write(K[I, J], ' ');
        If K[I, J] > M Then Begin
          M:= K[I, J];
          MPI:= I; MPJ:= J;
        End;
      End;
      WriteLn;
    End;
    K[MPI, MPJ]:= 0;
    WriteLn('Результирующий массив:');
    For J:= 1 To 6 Do Begin
      For I:= 1 To 8 Do Write(K[I, J], ' ');
      WriteLn;
    End;
    ReadLn;
End.