Вывести номера первой и последней строк таблицы, содержащих только положительные элементы

var
  ///Задает "ширину" массива
  par_x: integer;
  ///Задает "высоту" массива
  par_y: integer;
  ///Задает значения массива от -Rand_Par, до +Rand_Par
  Rand_Par: integer;
  ///Массив
  arr: array [,] of integer;
  ///Счетчик внешнего цикла
  Counter_X: integer;
  ///Счетчик внутренего цикла
  Counter_Y: integer;
  ///Логическая переменная, меняющая значение на "False", при наличии в строке отрицательных эллементов
  Sign_Par: boolean;
  ///Индекс первой "Не отрицательной" строки
  First_Max: integer:=-1;
  ///Индекс последней "Не отрицательной" строки
  Last_Max: integer;
  ///Флаг ошибки ввода
  Error_Flag: boolean;
  ///Входная строка
  Inp_: string;
  ///Флаг продолжения
  Continue_Flag: boolean;
begin
 
  //Данный цикл является необязательным.
  //Вместо него возможно задание переменных вручную
  //par_x:= 5; par_y:= 10; Rand_Par:= 10;
  repeat
    Continue_Flag:= true;
    Writeln('Задайте размерность массива:');
    Write('По X:');
    Readln(Inp_);
    Error_Flag:= TryStrToInt(Inp_,par_x);
    if Error_Flag=false
      then
        begin
          Writeln('Строка: ',Inp_,' Имела неверный формат');
          Continue_Flag:= false;
        end
      else
        begin
          Write('По Y:');
          Readln(Inp_);
          Error_Flag:= TryStrToInt(Inp_,par_y);
          if Error_Flag=false
            then
              begin
                Writeln('Строка: ',Inp_,' Имела неверный формат');
                Continue_Flag:= false;
              end
            else
              begin
                Write('Ведите значение интервала генерации:');
                Readln(Inp_);
                Error_Flag:= TryStrToInt(Inp_,Rand_Par);
                if Error_Flag=false
                  then
                    begin
                      Writeln('Строка: ',Inp_,' Имела неверный формат');
                      Continue_Flag:= false;
                    end
              end;
            
        end;
  until Continue_Flag=true;
 
  Randomize;
  //Инициализация динамического массива
  arr:= new integer [par_x,par_y];
 
  for Counter_X:=0 to par_x-1 do
    begin
      //Вывод номера строки
      Write('* ',Counter_X:3);
      for Counter_Y:= 0 to par_y-1 do
        begin
          //Присвоение случайных значений элементам матрицы
          arr[Counter_X,Counter_Y]:= Random(Rand_Par*2)-Rand_Par;
          //Вывод значения матрицы
          Write(' * ',arr[Counter_X,Counter_Y]:3);
        end;
      Writeln(' *');
    end;
 
  //Цикл обработки массива согласно условию
  for Counter_X:=0 to par_x-1 do
    begin
      Sign_Par:=false;
      for Counter_Y:= 0 to par_y-1 do
        if arr[Counter_X,Counter_Y]<=0
          then
            Sign_Par:=true;
      if (Sign_Par=false) and (First_Max=-1)
        then
          begin
            First_Max:=Counter_X;
            Last_Max:=Counter_X;
          end
        else
          if Sign_Par=false
            then
              Last_Max:=Counter_X;
   end;
 
  //Вывод ответа
  if First_Max=-1
    then
      Writeln('Строк состоящих из положительных элементов не найдено')
    else
      Writeln('Первая строка:',First_Max,' Последняя строка:',Last_Max)
end.