Ошибка в задаче

uses crt;
const n=8;
var a,b:array[1..n]of integer;
i,j,maxi:integer;
p:boolean;
begin
clrscr; 
for i:=1 to n do 
begin
write('Vedit element A[',i,']=');
read(a[i]);
end;
p:=false;
j:=1;
for i:=1 to n do
if a[i]<0 then
begin
b[j]:=a[i];
j:=j+1;
p:=true;
end;
if p then
begin
maxi:=1;
writeln('Msiv B: ');
for i:=1 to j-1 do
write(b[i],' ');
if b[i]>b[maxi] then maxi:=i;
writeln('Max= ',b[maxi])
end
else writeln('Net otricatelnih chisel');
end.

uses crt;
const n=8;
type Mas=array[1..n]of integer;
var a,b:Mas;
i,j:integer;
PROCEDURE vvod(var d:Mas;y:integer);
begin
clrscr; 
for y:=1 to n do 
begin
write('Vedit element A[',y,']=');
read(d[y]);
end;
end;
Function deystvie (z,y:integer;d,c:Mas):integer;
var p:boolean;
maxi:integer;
begin
p:=false;
z:=1;
for y:=1 to n do
if d[y]<0 then
begin
c[z]:=d[y];
z:=z+1;
p:=true;
end;
if p then
begin
writeln('Msiv b: ');
for y:=1 to z-1 do
write(c[y],' ');
maxi:=1;
if c[y]>c[maxi] then maxi:=y;
writeln('Max= ',c[maxi])
end
else writeln('Net otricatelnih chisel');
end;
begin
vvod(a,i);
deystvie(j,i,a,b);
end.

writeln('Massiv B: ');
for i:=1 to j-1 do
write(b[i],' ');
if b[i]>b[maxi] then maxi:=i;
writeln;