Допишите пожайлуста до 7 января!

[DEMONENOC]

Помогите пожайлуста! как расположить в массивах подряд только положительные числа а потом нули!!!

Задание:
Написать программу решения следующей задачи: Преобразовать массивы X(10), Y(12), расположив в них подряд только положительные элементы. Вместо остальных элементов записать нули. Вывести преобразованные массивы на экран.

Вот что я только сделал:

Program MassivbI;
Type massive=array[1..12]of integer;
Var x,y:massive;
i:integer;
Procedure zm(var a:massive; n:integer);
Var i:integer;
Begin
For i:=1 to n do
If a[i]<0 then a[i]:=0;
For i:=1 to n do
Writeln ( a[i], ' ' );
Writeln( );
End;
Begin
for i:=1 to 10 do
x[i]:=random(20);
for i:=1 to 12 do
y[i]:=random(20);
zm(x, 10);
zm(y, 12);
End.

[Alar]

название не соотвествует правилам. закрыто.