Homework of pascal, please help me find the error
var a:array [1..100] of integer;
n:integer;
procedure nhapmang (var a:array [1..100] of integer;var n: integer);
var i:integer;
begin
write ('nhap n:');
readln (n);
for i:=1 to n do
begin
write ('a[', i, ']=');
readln;
end;
end;
procedure xuatmang ( a:array [1..100] of integer; n: integer);
var i:integer;
begin
for i:=1 to n do
write (a[i]:4);
end;
begin
nhapmang (a, n);
xuatmang (a, n);
end.