[pascal] da variabili globali a variabili locali

[Lucked]

ho questo codice,volevo trasformare l'array globale in locale...qualcuno sa come fare, o vuole provare a indovinare?

program stampaivalorida1a100 (output);

type ins = array[1..100] of integer;

var
  a: ins;
  i: integer;


procedure stampa;
begin
 for i:=1 to 100 do
    writeln(a[i]);
end;



begin
  for i:=1 to 100 do
    a[i] := i;
  stampa;

  readln;
end.