Из локальных в глобальные

uses crt;
Const
       Rows=6;   
       Cols=6;  
Type
       myArray = array [1..Cols] of integer;
var
       A : array [1..Rows,1..Cols] of integer;
       KOLP, KOLO, KOLN: myArray;
       i,j:byte;   
       ch: char;   
       data:integer; 
 
Function Calc_Count (Rows, Col:byte; Param:integer):Byte;
var
     i:byte;
     Result:byte;
begin
     Result:=0;
     for i:=1 to Rows do
         begin
         if Param <0 then
                         inc (Result, Byte(A[i,Col]<0));
         if Param =0 then
                         inc (Result, Byte(A[i,Col]=0));
         if Param >0 then
                         inc (Result, Byte(A[i,Col]>0))
 
         end;
 
     Calc_Count:=Result
 
end;
 
Procedure  Calc_Elements (var X,Y,Z:myArray);
var
    i:byte;
begin
     for i:=1 to Cols do
         begin
         X[i]:=Calc_Count (Rows,i,1);
         Y[i]:=Calc_Count (Rows,i,-1);
         Z[i]:=Calc_Count (Rows,i,0)
 
         end
end;
begin
 
gotoxy (20,24);
Writeln ('Нажмите любую клавишу для продолжения ');
clrscr;
TextColor (White);
gotoxy (10,6);
TextColor (White);
Writeln (' Как желаете формировать исходный массив(6,6):');
Writeln ('1 – ручной ввод, 2 – программа сама сформирует данные ');
Writeln;
 
Repeat
      ch:=Readkey;
until (ch='1') or (ch='2');
 
if ch='1' then
               begin
 
               for i:=1 to rows do
                   for j:=1 to cols do
                   begin
 
                   gotoxy (1,24);
                   write ('‚Введите элемент массива А[',i,',',j,']=          ');
                   gotoxy (32,24);
                   read (A[i,j])
 
                   end
              end
else
     begin
 
     Randomize;
     for i:=1 to rows do
         for j:=1 to cols do
             begin
             data:=Trunc (Random(1000));
             if data<200 then
                               data:=-1*data;
             if (data>400) and (data<600) then
                                                data:=0;
             A[i,j]:=data
             end
     end;
 
   
 
     writeln;
     Writeln ('Содержимое исходного массива А');
     Writeln;
 
     for i:=1 to Rows do
         begin
         for j:=1 to Cols do
                             Write ('A[',i,',',j,']=',A[i,j],'  ');
         Writeln
         end;
 
    Calc_Elements (KOLP, KOLO, KOLN);
 
    Writeln;
    Writeln ('Отчет по элементам столбцов');
    Writeln;
    Writeln ('              Положительных   Отрицательных   Нулевых            ');
 
    for j:=1 to Cols do
    Writeln ('Столбец  ',j, ':         ',KOLP[j], '              ',KOLO[j], '           ', KOLN[j] );
 
ch:=Readkey
 
end.