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

 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.