Паскаль

[Ванько]

ребят помогите. В паскале Переписать положительные элементы массива
X(100) и Y(80) в массив Z подряд.Запись в массив Z выполнить в подпро-грамме.
вот моя прога
program lab4;
const B=100;
type
mas= array[1..100]of real;
var
i,k,M,N:integer;
X,Z,Y:mas;
procedure PPY(var A:mas; K:integer; var c:mas);
var i:integer; var l: integer;
begin

l:=0;
for i:=1 to 50 do if A[i]>0 then
begin
inc(l);
C[l]:=A[i];

end;



write('Massiv Z ot ');
for i:=1 to l do begin
write(c[i],' ');
end;
writeln;
end;
Begin
writeln('vvedite razmer massiva X');
read(M);
writeln('vvedite znachenie massiva X');
for i:= 1 to M do
begin
write ('X[',i,']='); readln (X[i]);
end;
write('Massiv X: ');
for i:=1 to m do begin
write(x[i],' ');
end;




writeln('vvedite razmer massiva Y');
read(N);
writeln('vvedite znachenie massiva Y');
for i:= 1 to N do
begin
write ('Y[',i,']='); readln (Y[i]);
end;
write('Massiv Y: ');
for i:=1 to m do begin
write(Y[i],' ');
end;



PPY(X,M,Z);
PPY(Y,N+M,Z);
for i:=(N+M);
write Z[i];
end.


помогите доделать.