Типизированные файлы

[Mizantrop]

Уважаемые, помогите найти ошибку, программа работает неверно, написана на турбо паскале. А вот и сама задачка, точнее ее условие:
1. Создать числовой файл . Получить файл , в который записать сначала положительные, затем отрицательные и, наконец, нулевые компоненты файла . Далее в файле заменить точки стыковки последовательностей увеличением на 100 элементов стоящих слева и справа от этих точек (мест где положительные сменяются с отрицательными и отрицательные с нулевыми). Файлы и вывести до и после преобразования.
А вот,что получилось у меня:
Program lab2;
Uses crt;
type
fl=file of integer;
Var
F,G:fl;
a,n,t,t1:integer;
Begin
ClrScr;
Writeln('Введите элементы файла, конец ввода "111": ');
ASSIGN(F,'C:\F.dat');
Rewrite(F);
Read(a);
While (a<>111) Do
Begin
Write(F,a);
Read(a);
end;
Close(F);
ASSIGN(G,'C:\G.dat');
Reset(F);
Rewrite(G);
n:=0;
While not Eof(F) do
Begin
Read(F,a);
If (a>0) Then
Begin
Write(G,a);
n:=n+1;
end;
end;
Close(F);
t:=n;
Reset(F);
While not Eof(F) do
Begin
Read(F,a);
If (a<0) Then
Begin
Write(G,a);
t:=t+1;
end;
end;
Close(F);
Reset(F);
While not Eof(F) do
Begin
Read(F,a);
If (a=0) Then
Write(G,a);
end;
Close(G);
Close(F);
Reset(F);
Writeln('Вывод файла F: ');
While not Eof(F) do
Begin
Read(F,a);
Write(a);
end;
Close(F);
Reset(G);
Writeln();
Writeln('Вывод файла G: ');
While not Eof(G) do
Begin
Read(G,a);
Writeln(a);
end;
Close(G);
Reset(G);
Seek(G,n-1);
Read(G,a);
a:=a+100;
Seek(G,n-1);
Write(G,a);
Close(G);
Reset(G);
Seek(G,t-1);
Read(G,a);
Close(G);
Reset(G);
a:=a+100;
Seek(G,t-1);
Write(G,a);
Close(G);
Reset(G);
Seek(G,t);
Read(G,a);
a:=a+100;
Seek(G,t);
Write(G,a);
Close(G);
Reset(G);
Writeln('Вывод файла G: ');
While not Eof(G) do
Begin
Read(G,a);
Writeln(a);
end;
Close(G);
end.
Заранее благодарен

[p51x]

отформатируйте код и воспользуйтесь тегом...