Все элементы массива, не равные нулю, перепишите, сохраняя их порядок, в начало массива

uses crt;
var
   massiv:array [1..100] of integer;
   i,n,k:integer;
Begin
   write('Ââåäèòå äëèíó ìàññèâà:');
   read(n);
   writeln('ââåäèòå ìàññèâ');
   for i:=1 to n do
   begin
      read(massiv[i]);
   end;
   write('Èñõîäíûé ìàññèâ:');
   for i:=1 to n do
   begin
      write(massiv[i]);
   end;
   for i:=1 to n do
   Begin
      if massiv[i]=0 then
         for k:=i to n do
         begin
            if massiv[k]<>0 then
            begin
               massiv[i]:=massiv[k];
               massiv[k]:=0;
               break;
            end;
         end;
         continue;
   end;
   writeln;
   write('Íîâûé ìàññèâ:');
   for i:=1 to n do
   begin
      write(massiv[i]);
   end;
End.

var
  K, p: array[1..100] of integer;
  i, N, c: integer;
  
begin
  randomize;
  N := 15 + random(100);
  c := 0;
  writeln('Исходный случайный массив:');
  for i := 1 to N do
  begin
    k[i] := -10 + random(21); //случайный элемент [-10, 10]
    if k[i] <> 0 then begin inc(c); p[c] := k[i] end;
    write(' ', k[i])
  end;
  writeln; 
  writeln;
  writeln('Массив с нулями в конце (если они есть):');
  for i := 1 to c do write(' ', p[i]); //ненулевые элементы
  for i := 1 to N - c do write(' ', 0) //нулевые элементы
end.