Циклические процессы

program   pr1;
uses      crt;
const     WG=100;
type      tmasi=array[1..WG]of integer;
var       a:tmasi;
          i,j:byte;
          sum,x:integer;
          
procedure pro_vv_mas(var n:byte; var mas:tmasi);
var       i,kl:byte;
begin
     writeln('1-vvod s klaviature; 2-sluchayno');
     readln(kl);
     if kl=2 then randomize;
     writeln('razmernost`');
     readln(n);
     for i:=1 to n do
     case kl of
     1:begin
            writeln('vvedi ',i,' element');
            readln(mas[i]);
       end;
     2:mas[i]:=random(50);
     end;
end;
 
procedure pro_out_mas(n:byte; mas:tmasi);
var       i:byte;
begin
     writeln('massiv:');
     for i:=1 to n do
     write(mas[i]:5);
end;
 
begin
     pro_vv_mas(j,a); writeln('massiv:'); pro_out_mas(j,a);
     writeln;
     writeln('vvedi x');
     write('x=');
     readln(x);
     sum:=0;
     for i:=1 to j do
     if a[i] mod x = 0 then sum:=sum+a[i];
     if sum=0 then writeln('net chisel kratnix chislu x')else
     writeln('summa elementov-',sum);
end.