[The Shadow]

Код:

program Project1;

{$APPTYPE CONSOLE}

const
  n = 5;

var
  a: array [1..n] of array [1..n] of Integer;
  b: array [1..n] of boolean;
  i, j: Integer;

function IsV(x: Integer): Boolean;
var
  i: Integer;
begin
  Result:=True;
  for i:=2 to n do
  if a[x][i] <= a[x][i - 1]  then
  Result:=False;
end;

begin
  Randomize;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i][j]:=Random(100);
      Write(a[i][j]:3);
    end;
    Writeln;
  end;
  Writeln;
  for i:=1 to n do
  b[i]:=IsV(i);
  for i:=1 to n do
  Write(b[i], ' ');
  Readln;
end.