program laba5;
{$APPTYPE CONSOLE}
{Если ниже главной диагонали матрицы нет ни одного отрицательного элемента, изменить матрицу  , умножив каждый ее элемент  на находящийся с ним в одной строке элемент главной диагонали, иначе каждый элемент матрицы умножить на максимальный элемент соответствующей строки.}
uses
  SysUtils,
  Ruslib in 'Ruslib.pas';
Var
  X: array[0..255, 0..255] of Integer;
  i, j, jp, xd, k, n, 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;
  jp:=0;
  for i:=1 to (n-1) do
  begin
    for j:=0 to jp do
      if x[i,j]<0 then
      begin
        z:=true;
        Writeln('Условие выполнено!');
        break
      end;
    if z=true then break;
    jp:=jp+1;
  end;
  jp:=0;
  if z=true then
    for i:=0 to (n-1) do
    begin
      k:=0;
      xmax:=x[i,k];
      for j:=0 to (n-1) do
        if x[i,j] > xmax then
          xmax:=x[i,j];
      for j:=0 to (n-1) do
        x[i,j]:=xmax*x[i,j];
    end
  else
    for i:=0 to (n-1) do
    begin
      xd := x[i,i];
      for j:=0 to (n-1) do
        x[i,j]:=x[i,j]*xd;
    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.