Определить в каком массиве, больше чисел меньше 30.

 uses crt;
 type
 masA = array [1..5] of integer;
 masB = array [1..7] of integer;
 masC = array [1..6] of integer;
 var
 a:MasA;
 b:masB;
 c:masC;
 
 var i,x,y,z,g:integer;
 
 procedure RandomMass(var a:MasA; var b:MasB; var c:MasC; var x,y,z:integer);
 var kol:integer;
 begin
 randomize;
   For i:=1 to 5 do
   begin
     a[i]:=random(50)+10;
     if a[i]<30 then kol:=kol+1;
   end;
   x:=kol; kol:=0;
   For i:=1 to 7 do
   begin
     b[i]:=random(50)+10;
     if b[i]<30 then kol:=kol+1;
   end;
   y:=kol; kol:=0;
   For i:=1 to 6 do
   begin
     c[i]:=random(50)+10;
     if c[i]<30 then kol:=kol+1;
   end;
   z:=kol;
 end;
 
 Procedure Schet(x,y,z:integer; var g:integer);
 var max:integer;
 begin
    max:=x; g:=1;
    if y>max then begin max:=y; g:=2; end;
    if z>max then begin max:=z; g:=3; end;
 end;
 
 procedure WriteMass(x:integer);
 begin
   For i:=1 to 5 do
   write(a[i],' ');
   writeln;
   For i:=1 to 7 do
   write(b[i],' ');
   writeln;
   For i:=1 to 6 do
   write(c[i],' ');
   writeln;
   writeln('Max â ',x,' ìàññèâå');
 end;
 
 begin
    RandomMass(a,b,c,x,y,z);
    Schet(x,y,z,g);
    WriteMass(g);
 end.