Оформить программу в виде подпрограмм-процедур с параметрами в паскале​

Сканера и фотоаппарата нет, поэтому вот схема:
                                            
общ мин/ |       ||        |(х) на общий минус
                                   |        |         |         |
общ мин/ |        |         |         |
                                   | |         |         |
общ мин/  |         |
                                                     | |

общие минусы соединены вместе и подключены к - источника питания,
(Х) - это лампочка 
первый прямоугольник слева - это элемент ИЛИ
второй прямоугольник слева - это элемент И
При одновременном замыкании на минус двух или более разных входов лампочка загорится

 uses crt;
var n,m,i,j,k:integer;    
a:array[1..1000] of integer;
begin
repeat
writeln('Введите 2 натуральнвх числа n<m<1000:');
read(n,m);
until
(n>0)and(n<m)and(m<1000);
writeln('Начальный ряд:');
k:=0;
for i:=n to m do
 begin  
 inc(k);   a[k]:=i;  
write(a[i]:4);  
end;
writeln;
while k>=2 do
 begin  
 i:=1;  
while i<=k do  
  begin     for j:=i to k-1 do    
 a[j]:=a[j+1];    
 k:=k-1;
  i:=i+1;    
end;  
 i:=2;  
while i<=k do  
  begin     f
or j:=i to k-1 do    
 a[j]:=a[j+1];    
k:=k-1;    
i:=i+1;    
end;
 end;
write(a[k]);
end.