Использование подпрограмм

uses crt;
type
   arr = array[1..100] of integer;
var
   a,b: arr;
   i,n1,n2: byte;
procedure stepen(n: byte; var a: arr);
   var
      i,min: byte;
   begin
      min:=1;
      for i:=2 to n do
         if a[i]<a[min] then min:=i;
      for i:=min+1 to n do a[i]:=sqr(a[i]);
   end;
begin
   clrscr;
   randomize;
   write('размер 1 массива: ');
   readln(n1);
   writeln('1 массив');
   for i:=1 to n1 do
      begin
         a[i]:=random(51)-25;
         write(a[i]:4);
      end;
   writeln;
   write('размер 2 массива: ');
   readln(n2);
   writeln('2 массив');
   for i:=1 to n2 do
      begin
         b[i]:=random(51)-25;
         write(b[i]:4);
      end;
   writeln;
   stepen(n1,a);
   stepen(n2,b);
   writeln;
   writeln('преобразованный 1 массив');
   for i:=1 to n1 do write(a[i],' ');
   writeln;
   writeln('преобразованный 2 массив');
   for i:=1 to n2 do write(b[i],' ');
   readkey
end.