program laba5;
{$APPTYPE CONSOLE}
{Если ниже главной диагонали матрицы   нет ни одного отрицательного элемента, изменить матрицу  , умножив каждый ее элемент  на находящийся с ним в одной строке элемент главной диагонали, иначе каждый элемент матрицы умножить на максимальный элемент соответствующей строки.}
uses
  SysUtils,
  Ruslib in 'D:\Software\Borland\Delphi7\Projects\Ruslib.pas';

Var
  X: array[0..255, 0..255] of Integer;
  k, jp, s, N, i, j, Imax, Jmax: integer;
  Xmax:integer;
  z: boolean;
BEGIN
  Writeln('Введите n-ый порядок массива:');   {Размерность массива}
  Readln(N);
  For  i:=0 to (N-1) do                                      {Заполнение массива}
    For  j:=0 to (N-1) do begin
      Write('Введите элемент',' X[',i,',',j,']= ');
      Readln(X[i,j]);
    end;

  z := false;
  for i:=1 to (N-1) do
  begin
    for j:=0 to i - 1 do
      if X[i,j]<0 then
      begin
        z:=true;
        Writeln('Условие выполнено');
        break
      end;
  end;
  if z=false then
    for i:=0 to (N-1) do
    begin
      Xmax := x[i, 0];                            {умножение всей строки на максимальный элемент. для каждой строки}
      for j:=1 to (N-1) do
        if x[i, j] > xmax then
          xmax := x[i, j];
      for j:=0 to (N-1) do
        x[i, j] := x[i, j]*xmax;
    end
  else
    for i:=0 to (N-1) do           {умножение всей строки на элемент, находящийся на главной диагонали. для всей строки}
    begin
      xmax := x[i, i]; //Запомним элемент на диагонали
      for j:=0 to (N-1) do
        X[i,j]:=X[i,j]*xmax;
    end;

  Writeln('Конечный массив:');                       {Вывод элементов массива}
  For  i:=0 to (N-1) do
  begin
    For  j:=0 to (N-1) do Write (X[i,j],'  ');
    Writeln;
  end;
  Writeln;
  Writeln('Нажмите Enter для выхода...');
  readln;
End.