Паскаль.Дописать в файл f строки из файла g, которых нет в файле f .

[ksusha_kse]

Даны файлы f и g, содержащие строки. Дописать в файл f строки из файла g, которых нет в файле f . Файл g уничтожить.

имеется вот такой код

program lab9;

const n=50;
type StrArr=array [1..n] of string;
  SetOfArrElem=set of 1..n;
var Fstr, Gstr : StrArr;
  FSize, GSize:byte;
  F, G:string;
  Mn:SetOfArrElem;
  fl:text;
function ReadFile(var Arr:StrArr; const FName:string):byte;
var fl:text;
  i:byte;
begin
  Assign(fl,FName);
  Reset(fl);
  i:=0;
  while not EOF(fl) do
  begin
    i:=i+1;
    readln(fl,Arr[i]);
  end;
  ReadFile:=i;
  close(fl);
end;
procedure GenerateSet(var GArr, FArr:StrArr; GSize, FSize:byte;var SetOfArr:SetOfArrElem);
var i, j:byte;
begin
  SetOfArr:=[];
  for i:=1 to GSize do
    for j:=1 to FSize do
      if GArr[i]=FArr[j] then SetOfArr:=SetOfArr+[i];
end;

procedure AddStrings(var FName:string; const SetOfArr:SetOfArrElem; GStrings:StrArr; GSize:byte);
var fl:text;
  i:byte;
begin
  Assign(fl, FName);
  Append(fl);
  writeln(fl);
  for i:=1 to GSize do
    if (not (i in SetOfArr)) then writeln(fl, GStrings[i]);
  close(fl);
end;

begin
  Write('File f: ');
  Readln(F);
  FSize:=ReadFile(Fstr, F);
  Write('File g: ');
  Readln(G);
  GSize:=ReadFile(GStr, G);
  GenerateSet(GStr, FStr, GSize, FSize, Mn);
  AddStrings(F, Mn, GStr, GSize);
  Assign(fl,G);
  Erase(fl);
end.

помогите сделать без использования массива

[Serge_Bliznykov]

можно каждый раз ПОЛНОСТЬЮ перечитывать файл f, перебирать строки, проверяя их на совпадение. Это будет работать, но это крайне неоптимально!
Чем массив не устраивает?!

[ksusha_kse]

можете пожалуйста кинуть код?

преподаватель сказал не использовать массив...