С помощью процедур сформировать 3 массива из 10 случайных элементов

uses crt;
const n=10;
Type arr=array[1..n] of integer;
     brr=array[1..n] of integer;
     crr=array[1..n] of integer;
 
procedure Mas_a(a:arr);
var i,max,tempi:integer;
 begin
  max:=1;
   for i:=1 to n do
    if a[i]>max then
     begin
      max:=a[i];
      tempi:=i;
      a[tempi]:=a[tempi]*2;
     end;
    for i:=1 to n do
     Write(a[i]:4);
     Writeln;
    Writeln('Max ',max,' [',tempi,']');
 end;
 
procedure Mas_b(b:brr);
var i,max,tempi:integer;
 begin
  max:=1;
   for i:=1 to n do
    if b[i]>max then
     begin
      max:=b[i];
      tempi:=i;
      b[tempi]:=b[tempi]*2;
     end;
    for i:=1 to n do
     Write(b[i]:4);
    Writeln;
    Writeln('Max ',max,' [',tempi,']');
 end;
 
procedure Mas_c(c:crr);
var i,max,tempi:integer;
 begin
  max:=1;
   for i:=1 to n do
    if c[i]>max then
     begin
      max:=c[i];
      tempi:=i;
      c[tempi]:=c[tempi]*2;
     end;
    for i:=1 to n do
     Write(c[i]:4);
    Writeln;
    Writeln('Max ',max,' [',tempi,']');
 end;
 
var a:arr;
    b:brr;
    c:crr;
    i:integer;
begin
ClrScr;
Randomize;
Writeln('Массив a');
 for i:=1 to n do
  begin
   a[i]:=random(20)-10;
   Write(a[i]:4);
  end;
Writeln;
Mas_a(a);
Writeln('Массив b');
 for i:=1 to n do
  begin
   b[i]:=random(30)-15;
   Write(b[i]:4);
  end;
Writeln;
Mas_b(b);
Writeln('Массив c');
 for i:=1 to n do
  begin
   c[i]:=random(40)-20;
   Write(c[i]:4);
  end;
Writeln;
Mas_c(c);
Readln;
end.