"Сжать" целочисленный массив, выбросив из него нулевые элементы

const mn=100;
var
  a: array [1..mn] of Integer;
  n, m, i: Integer;
begin
  Randomize;
  repeat Write('n [1..',mn,']: '); ReadLn(n) until n in [1..mn];
  Write('A ='); {m:=0;}
  for i:=1 to n do begin
    a[i]:=Random(10); Write(' ',a[i]);
    if a[i]<>0 then begin
      Inc(m); a[m]:=a[i];
    end;
  end; WriteLn;
  if m=n then WriteLn('Сжатие невозможно')
  else begin
    Write('A''='); for i:=1 to m do Write(' ',a[i]); WriteLn;
  end;
end.

Program P13;
 
var Arr : Array[1..10] of integer;
var k,i : integer;
 
function Press(Var X : Array[1..10] of integer; n : integer) : integer;
 
Var i_from, i_to : integer;
 
Begin
 
     i_from:=1;
     i_to:=1;
     
     While (i_from <= n) Do Begin
       if (X[i_from] <> 0) Then Begin
          X[i_to]:=X[i_from];
          inc(i_from);
          inc(i_to);
       End
       else
          inc(i_from);
     End;
 
     Press:=i_to-1;
     
End;
 
Begin
 
    Arr[1]:=1;
    Arr[2]:=0;
    Arr[3]:=0;
    Arr[4]:=-1;
    Arr[5]:=9;
    Arr[6]:=11;
    Arr[7]:=0;
    Arr[8]:=0;
    Arr[9]:=-13;
    Arr[10]:=99;
 
    k:=Press(Arr,10);
    
    if k<10 then
       for i:=1 to k Do Writeln(Arr[i])
    else
       Writeln('Сжатие невозможно');
 
End.