Type identifier expected или что с процедурами

program Lab_14;
const n = 22;
type
mas = array[1..n] of real;
var
x: ^mas;
p,q: integer;
procedure vvod(var x: ^mas; const n: integer); // Вот тут-то и ошибка
var 
i: integer;
k: real;
begin
k:=1;
for i:=1 to n do
begin
x^[i]:=sin(i/(sqr(i)+1));
end;
end;
procedure vyvod(var x: ^mas; const n: integer);
var i: integer;
begin
for i:=1 to n do
begin
write(x^[i]:5:4, ' ');
end;
end;
procedure pos(var x: ^mas; const n: integer; var p: integer);
var i: integer;
begin
p:=0;
for i:=1 to n do
begin
if(x^[i]>0) then
begin
p:=p+1;
end;
end;
end;
procedure neg(var x: ^mas; const n: integer; var q: integer);
var i: integer;
begin
q:=0;
begin
if(x^[i]<0) then
begin
q:=q+1;
end;
end;
end;
begin
new (x);
vvod(x, n);
vyvod(x,n);
writeln;
pos(x, n, p);
writeln('Quantity of positives: ', p);
neg(x, n, q);
writeln('Quantity of negatives: ', q);
dispose(x);
readln;
end.

program Lab_14;
uses crt;
const n = 22;
type
Tmas=array[1..n] of real;
mas=^Tmas;
 
procedure vvod(var x:mas);
var i: integer;
begin
new(x);
for i:=1 to n do
x^[i]:=sin(i/(sqr(i)+1));
end;
procedure vyvod(var x:mas);
var i: integer;
begin
for i:=1 to n do
write(x^[i]:8:4);
writeln;
end;
procedure pos(x:mas; var p: integer);
var i: integer;
begin
p:=0;
for i:=1 to n do
if x^[i]>0 then p:=p+1;
end;
procedure neg(x:mas; var q: integer);
var i: integer;
begin
q:=0;
for i:=1 to n do
if(x^[i]<0) then q:=q+1;
end;
var
x:mas;
p,q: integer;
begin
clrscr;
new (x);
vvod(x);
vyvod(x);
pos(x,p);
writeln('Quantity of positives: ', p);
neg(x,q);
writeln('Quantity of negatives: ', q);
dispose(x);
readln;
end.