Удалить из массива А (n) нулевые элементы

const
n=10;
var
i,j:integer;
Ar:Array [1..n] Of Integer;
Begin
For i:=1 To n Do
                Begin
                Ar[i]:=random(n-5);
                write(ar[i]:3);
                End;
For i:=1 To n Do
               if ar[i]=0 then
                             Begin
                             For j:=i to n-1 do
                                              begin
                                              ar[j]:=ar[j+1];
                                              end;
                             ar[n]:=0;
                             end;
writeln('');
For i:=1 To n Do
write(ar[i]:3);
End.

uses Crt;
var  a:array[1..100] of integer;
     n,i,j,p,x:integer;
begin
ClrScr;
randomize;
write('Размер массмва n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(4);
  write(a[i],' ');
 end;
writeln;
i:=1;
while i<=n do
if a[i]=0 then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Массив без нолей:');
for i:=1 to n do
write(a[i],' ');
readln
end.

repeat
write('Размер массива не более 100 n=');
readln(n);
until n in [1..100];

write('Размер массива n=');
readln(n);