Одномерный массив А заполнить случайными числами из диапазона [–2..30]. Переместить нулевые элементы массива в начало, сдвинув остальные элементы вправо — Pascal(Паскаль)

Program sdvigi;
Uses crt;
Const n=10;
Var a: array[1..n] of shortint; i: byte;
Procedure sdvig;
Var k: byte;
begin
For i:=1 to n do
If a[i]=0 then
begin
For k:=i downto 2 do
a[k]:=a[k-1];
a[1]:=0;
end;
end;
Begin
Clrscr;
Randomize;
Writeln('Исходный массив: ');
For i:=1 to n do
begin
a[i]:=random(33)-2;
Write(a[i]:3);
end;
Writeln(^j);
Sdvig;
Writeln(‘Результат: ’);
For i:=1 to n do
Write(a[i]:3);
End.