Убрать глобальные переменные

uses crt;
type massiv=array[1..100] of integer;
var n,summ,net,kolvo:integer;
  x:massiv;
  f:text;
//---------------Процедуры------------//
//Клава
procedure onkey(var x:massiv);
var i:integer;
begin
  write('Введите кол-во элементов');
  readln(n);
  for i:=1 to n do
   begin
    writeln('Введите элемент № ', i, ' : ');
    readln(x[i]);
   end;
end;
//Файл
procedure readonfile(var x:massiv);
var i,code:integer;
    m:string;
    z:integer;
begin
  assign(f,'pom.txt');
  reset(f);
  i:=0;
 
while not eof(f) do
 begin
  inc(i);
  readln(f,m);
  val(m,z,code);
  x[i]:=z;
 end;
n:=i;
close(f);
end;
//Рандом
procedure rand(var x:massiv);
var i:integer;
begin
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
x[i]:=random(100)+1;
end;
   
procedure obrab(var c:massiv; var z:integer);
var i:integer;
begin
  summ:=0;
  kolvo:=0;
  for i:=1 to n do
   begin
    if c[i]<=z then
     begin
      summ:=summ+c[i];
      inc(kolvo);
     end;
   end;
   //Вывод
   for i:=1 to n do
     write(x[i],'; ');
   writeln;
   writeln('Среднее арифметическое: ',summ/kolvo);
end;
//+++++++++++++++Процедуры+++++++++++//
begin
  clrscr;
  writeln('Формат ввода*');
  writeln('1 - С клавиатуры');
  writeln('2 - С файла');
  writeln('3 - Случайно');
  write('Введите номер ввода*');
  readln(net);
  
  case net of
    1: onkey(x);
    2: readonfile(x);
    3: rand(x);
  end;
  obrab(x,x[1]);
end.