где ошибка?

[Prophet23]

создать файл F вещ чисел.получить вектор B записывая в него каждую третью компоненту файл,читая файл сначала
и вектор А, читая файл с конца
файл и векторы распечатать

program vector;
const
Nmax=100;
type
Tfile=file of integer;
tmas=array[1..nmax] of integer;
var
H:Tfile;
A,B,mas:tmas;
n:byte;


Procedure vvod(var xH:Tfile; ch: char);
var
a: integer;
begin
rewrite(xH);
writeln('Введите компоненты файла ', ch);
write('a=');
readln(a);
While a<>999 do
begin
write(H, a);
write('a=');
readln(a)
end;
close(H)
end;
procedure FormB (var xH:Tfile;var X:tmas; var nx:byte);
var
a:integer;
begin
reset(xH);
Seek(xH,2);
nx:=0;
While not eof(xH) do
begin
read (xH,a);
nx:=nx+1;
X[nx]:=a;
Seek (xH, filepos(xH)+2);
end;
close(xH);
end;

procedure formA (var xH:Tfile; var X:tmas; var nx:byte);
var
a:integer;
begin
reset(xH);
seek(xH,filesize(xH)-2);
nx:=0;
While filepos(xH)>=0 do
begin;
read(xH,a);
nx:=nx+1;
X[nx]:=a;
Seek(xH,filepos(xH)-3);
end;
close(xH);
end;

procedure vyvod(var xH: Tfile; ch:char);
var
a: integer;
begin
writeln('Печать файла ', ch);
reset(xH);
While not eof(xH) do
begin
read(xH, a);
writeln('a=', a:5)
end;
close(xH);
end;


procedure printmas (const mas:Tmas;Nx:byte;ch:char);
var
i: byte;
begin
writeln('полученный вектор:',ch);
for i:=1 to nx do
write (mas[i]:6);
end;

begin
assign(H,'H.dat');
vvod(H,'H');
formB (H,B,N);
formA (H,A,N);
vyvod(H,'H');
printmas(A,n,'A');
printmas(B,n,'B');
end.