Перевести программу с паскаля на Vba

program dota;
var i,n,f:integer;
a:array [1..10] of integer;
begin
     writeln('Введите кол-во элементов массива');
     readln(n);
     writeln('Ввод элементов массива');
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     writeln('Вывод элементов массива');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     f:=0;
     writeln('Вывод элементов массива до первого нуля');
     for i:=1 to n do
         begin
              if a[i]<>0
                 then
                     writeln(a[i])
              else
                  f:=1;
              if f=1
                 then
                     break;
         end;
end.

program dota2;
 
type mas=array[1..100] of integer;
 
var a:mas;
 
i,n,s:integer;
 
begin
 
randomize;
 
writeln('Vvedite n');
 
readln(n);
 
for i:=1 to n do
 
    a[i]:=random(10);
 
 
 
for i:=1 to n do
 
    write(a[i],' ');
 
writeln;
 
{
 
for i:=1 to n-1 do
 
    if odd(i) then
 
    begin
 
    s:=a[i];
 
    a[i]:=a[i+1];
 
    a[i+1]:=s;
 
    end;
 
}
 
for i:=1 to n do
 
    if (i mod 2 = 0) then
 
    begin
 
    s:=a[i];
 
    a[i]:=a[i-1];
 
    a[i-1]:=s;
 
    end;
 
 
 
for i:=1 to n do
 
    write(a[i],' ');
 
readln;
 
end.