количество положительных элементов до последнего нулевого элемента и количество отрицательных после него

program zadanie2;
type massiv=array[1..100]of integer;
var x,y:massiv;
    i,kolot,kolpol,n,m:integer;
procedure vvod(a:massiv;e:integer);
var i:integer;
begin
randomize;
for i:=1 to e do
a[i]:=random(100)-50;
end;
procedure vivod(a:massiv;e:integer);
var i:integer;
begin
for i:=1 to e do
write(a[i],' ');
end;
procedure koll(a:massiv;e:integer);
var i:integer;
begin
for i:=1 to e do
if a[i]>0 then
kolpol:=kolpol+1 else
kolot:=kolot+1;
end;
begin
write('введите размерность массива y N= ');
readln(n);
write('введите размерность массива x M= ');
readln(m);
kolpol:=0;
kolot:=0;
vvod(y,n);
vvod(x,m);
vivod(y,n);
vivod(x,m);
koll(y,kolpol);
koll(y,kolot);
koll(x,kolpol);
koll(x,kolot);
end.

program zadanie2;
uses crt;
type massiv=array[1..100]of integer;
procedure vvod(var a:massiv;var e:integer;c:char);
var i:integer;
begin
write('введите размерность массива ',c,':  ');
readln(e);
for i:=1 to e do
a[i]:=random(10)-5;
end;
procedure vivod(var a:massiv;e:integer;c:char);
var i:integer;
begin
writeln('Массив ',c);
for i:=1 to e do
write(a[i],' ');
writeln;
writeln;
end;
procedure koll(a:massiv;e:integer;var kolpol,kolot:integer);
var i,j:integer;
    f:boolean;
begin
j:=0;
i:=e;
while (i>=1)and(j=0) do
if a[i]=0 then j:=i else i:=i-1;
if j=0 then writeln('В массиве нет нулевого элемента!')
else
 begin
  writeln('Индекс последнего нулевого элемента=',j);
  kolpol:=0;
  for i:=1 to j-1 do
  if a[i]>0 then inc(kolpol);
  kolot:=0;
  for i:=j+1 to e do
  if a[i]<0 then inc(kolot);
  writeln('Количество положительных элементов=',kolpol);
  writeln('Количество отрицательных элементов=',kolot);
 end;
end;
 
 
var x,y:massiv;
    i,ko,kp,n,m:integer;
begin
clrscr;
randomize;
vvod(y,n,'Y');
vvod(x,m,'X');
clrscr;
vivod(y,n,'Y');
koll(y,n,kp,ko);
vivod(x,m,'X');
koll(x,m,kp,ko);
readln
end.