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

uses crt;

var

m, i, k:integer; a:array [1 ... 100] of integer;

begin

clrscr; randomize;

write (' Количество элементов массива : ') ; readln (k) ;

for i:=1 to k do

begin

a[i]:=random (100) - 50;

write (a[i],' ') ;

end;

m:=0;

writeln;

for i:=1 to k do

if a[i]=0 then inc (m)

else a[i-m]:=a[i]; k:=k-m;

for i:=1 to k do

write (a[i],' ') ; readln;

end.

Program Sherilusha;

uses crt;

const n = 20;

var

a:array [1 ... n] of integer;

sdvig, i, k:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (100) - 50;

write (a[i]:3,' ') ;

end;

writeln () ;

sdvig:=0;

for i:=1 to n do

if a[i]=0 then

sdvig:=sdvig+1

else

begin

a[i-sdvig]:=a[i];

end;

k:=n-sdvig;

for i:=1 to k do

write (a[i]:3,' ') ;

end.