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

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.