Работа с записью в файлы, циклы. Укажите где ошибка!

[Bulkin]

Всем привет!
Есть условия:
В один файл (F) пишем 5 чисел. В другой (G) другие 5 чисел. Пример: 12345 и 34567

Потом читаем их из этих файлов и ищем совпадения, те которые совпали пишем в файл (H1) которые не совпали пишем в другой файл (H2).

Мой результат: в H1 пишет цифру 1, в H2 34567.

Где я ошибься!?

Тело программы:

Program Zapis_i_chtenie;
uses crt;
var
    n,i:integer;
    fs,gs:integer;
    f,g,h1,h2:text;
begin
writeln('Vvedite 5 cyfr dlya F: ');
assign(f,'d:\f.txt');
rewrite(f);
append(f);
for i:=1 to 5 do
    begin
         write('->');
         readln(n);
         writeln(f,n);
    end;
close(f);
Writeln('Vvedite 5 cyfr dlya G: ');
assign(g,'d:\g.txt');
rewrite(g);
append(g);
for i:=1 to 5 do
    begin
         write('->');
         readln(n);
         writeln(g,n);
    end;
close(g);
assign(f,'d:\f.txt');
assign(g,'d:\g.txt');
assign(h1,'d:\h1.txt');
assign(h2,'d:\h2.txt');
reset(f);
reset(g);
rewrite(h1);
rewrite(h2);
while not EOF(f) do
      begin
          Readln(f,fs);
      begin
         while not EOF(g) do
        begin
           Readln(g,gs);
           if fs=gs
           then writeln(h1,gs)
           else writeln(h2,gs);
        end;
        end;
        end;
close(f);
close(g);
close(h1);
close(h2);
end.

[Stilet]

Скажи, а ты не хочешь решить эту задачу через типизированные файлы?
Считывать все в массив а потом искать по массиву.