Проверить последнюю строку матрицы на выполнение признака: элементы строки образуют возрастающую последовательность

program upr1;
 
uses crt;
 
const
  n = 4;
 
type
  mas = array[1..n, 1..n] of integer;
 
procedure vv1(var a: mas);
var
  i, j: byte;
begin//нужно вводить с клавы, иначе почти никогда не будет монотонных
  writeln('Введите элементы матрицы, целые числа:');
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('a[', i, ',', j, ']=');
      readln(a[i, j]);
    end;
  clrscr;
end;
 
procedure vv2(a: mas);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3);
    writeln;
  end;
end;
 
procedure vv3(a: mas);
var
  i, j, s: integer;
  f: boolean;
begin
  writeln('номера строк, образующих возрастающую последовательность');
  s := 0;
  for i := 1 to n do
  begin
    f := true;
    j := 2;
    while(j < n) and f do
      if(a[i, j] <= a[i, j - 1])//если допускается не строгое возрастание
        then f := false //знак = убрать
      else j := j + 1;
    if f then
    begin
      s := 1;
      write(i, ' ');
    end;
  end;
  if s = 0 then write('Таких строк нет');
end;
 
var
  a: mas;
 
begin
  vv1(a);
  vv2(a);
  vv3(a);
end.