Pascal. Задача с файлами

[deltafxfunc]

Ребят, в общем нужно решить 2 задачи... Сам пытался, или выходят хз какие данные или алгоритм не тот что надо в общем вот

a. В текстовом файле хранится последовательность целых чисел. Получить типизованный файл из неповторяющихся чисел текстового файла.
б. Дан файл, число компонент которого кратно четырем. Файл состоит из целых чисел не равных нулю, число положительных компонент файла равно числу отрицательных. Преобразовать файл так, чтобы два положительных числа чередовались с двумя отрицательными.

вот как я решил б

program l;
const
n=1000;
var
f:text;
F1:text;
i,j:longint;
MAx,min:array[1..n] of integer;
Buf:longint;
Procedure Read_Data;
Begin
i:=0;
j:=0;
Repeat
Readln(f,buf);
if buf>0 then
 Begin
  inc(i);
  Max[i]:=buf;
 end
else
 Begin
  Inc(j);
  min[j]:=buf;
 end;
until eof(f);
end;
begin
assign(f,'C:\Data.txt');
Assign(f1,'C:\Data.Out');
Rewrite(f1);
Reset(f);
Read_Data;
i:=1;
while i <= j-1 do
Begin
 Writeln(f1,Max[i]);
 writeln(f1,Max[i+1]);
 Writeln(f1,Min[i]);
 Writeln(f1,Min[i+1]);
 i:=i+2;
end;

Close(f);
Close(f1);
end.

Но по-моему надо как-то переделать, так как чисел может быть больше 2000... А как его переделывать я хз. Помогите плииз