Переписать программу с процедурами и функциями - PascalABC.NET

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
 program dd;
 var
 a:array[1..1000] of integer;
 q,n,k,i,r:integer;
 begin
 read(r,n);
 if r=0 then
 begin
 for i:=1 to n do
 read(a[i]);
 end
 else
 if r=1 then 
 begin
 for i:=1 to n do
 begin
 a[i]:=random(500)-500;
 writeln(a[i],' ');
 end;
 end;
 for i:=1 to n-2 do
 begin
 if ((a[i]>0) and (a[i+1]>0) and (a[i+2]>0)) or
 ((a[i]<0) and (a[i+1]<0) and (a[i+2]<0))
 then
 begin
 q:=1;
 break;
 end
 else
 begin
 q:=0;
 break;
 end;
 end;
 if q=1 then writeln('yes') else writeln('no');
 readln;
 readln;
 end.

Решение задачи: «Переписать программу с процедурами и функциями»

Листинг программы

var
  a: array[1..1000] of integer;
  q, n, k, i, r: integer;
 
begin
  read(r, n);
  
  if r = 0 then
  begin
      for i := 1 to n do
      read(a[i]);
  end
  else
  if r = 1 then 
  
  begin
    for i := 1 to n do
    begin
      a[i] := random(500) - 500;
      writeln(a[i], ' ');
    end;
  end;
  for i := 1 to n - 2 do
  begin
    if ((a[i] > 0) and (a[i + 1] > 0) and (a[i + 2] > 0)) or
    ((a[i] < 0) and (a[i + 1] < 0) and (a[i + 2] < 0))
    then
    begin
      q := 1;
      break;
    end
    else
    begin
      q := 0;
      break;
    end;
  end;
  if q = 1 then writeln('yes') else writeln('no');
  end.

Объяснение кода листинга программы

Ввод начального значения переменной r и числа n
Если r равно 0, то считывание n элементов в массив a
Если r равно 1, то заполнение массива a случайными числами от -500 до 500 и их вывод
Если r не равно 0 и r не равно 1, то итерационный цикл по массиву a от 1 до n-2
Проверка условия для определения наличия требуемого паттерна в массиве a
Если условие выполняется, то присвоение переменной q значения 1 и выход из цикла
Если условие не выполняется, то присвоение переменной q значения 0 и выход из цикла
Вывод значения переменной q в консоль
Если q равно 1, то вывод строки yes
Если q равно 0, то вывод строки no