Помогите написать прогу на паскале. Помогите написать программу на паскале. Сжать массив, удалив нули.

var
c, n, nn: integer;
a: array [1..100] of integer;
begin
randomize;
write('n (<= 100)? ');
readln(n);
write('random array:');
for c := 1 to n do begin
a[c] := random(5);
write(' ', a[c]);
end;
writeln;
nn := 1;
for c := 1 to n do
if a[c] <> 0 then begin
a[nn] := a[c];
inc(nn);
end;
n := nn - 1;
write('result array:');
for c := 1 to n do write(' ', a[c]);
end.