Массив в Паскале!!!

while a[i]<>0 do {Ищем нулевой элемент}
i:=i+1;
n:=a[i];
for i:=n to 20 do {Увеличиваем в 2 раза все элементы стоящие после нулевого элемента}
a[i]:=a[i]*2;

uses crt;
var
a:array[1..20]of integer;
i,ii:integer;
begin
ii:=0;
randomize;
for i:=1 to 20 do begin
a[i]:=random(199)-99;
write(a[i],' ');
end;
writeln;
for i:=20 downto 1 do
if a[i]=0 then ii:=i;
if ii=0 then writeln('nety nylej')
else begin
for i:=1 to ii do
write(a[i],' ');
for i:=ii+1 to 20 do begin
if a[i]>0 then a[i]:=a[i]*2;
write(a[i],' ');
end;
end;
readln;
end.

uses crt;
var
a: array [1..20] of integer;
n,i:integer;
begin
clrscr;
for i:=1 to 20 do
begin write('Vvedite el.: '); readln(a[i]);  end; {заполняем массив}
while a[i]<>0 do {ищем элемент равный 0}
i:=i+1;
n:=i;
for i:=n to 20 do {от элемента равного нулю увеличиваем числа в 2 раза}
a[i]:=a[i]*2;
for i:=1 to 20 do {выводи полученный массив}
write(a[i],' ');
readkey;
end.

uses crt;
var
a: array [1..20] of integer;
n,i:integer;
begin
clrscr;
for i:=1 to 20 do
begin write('Vvedite el.: '); readln(a[i]);  end; {заполняем массив}
i:=1;
while a[i]<>0 do {ищем элемент равный 0}
i:=i+1;
n:=i;
for i:=n to 20 do {от элемента равного нулю увеличиваем числа в 2 раза}
a[i]:=a[i]*2;
for i:=1 to 20 do {выводи полученный массив}
write(a[i],' ');
readkey;
end.