Даны текстовые файлы F и G. Сравнить содержимое этих файлов и записать в файл H все совпадающие компоненты файлов F G — Pascal(Паскаль)

Пример:
1 файл:
1234511
113

2 файл:
12369
144

В 3 файл нужно записать:
123
1

var
  f, g, h: text;
  s1, s2: string;
  i: integer;

begin
  Assign(f, 'f.txt');
  Assign(g, 'g.txt');
  Assign(h, 'h.txt');
  reset(f);
  reset(g);
  rewrite(h);
  while not EoF(f) and not EoF(g) do
  begin
    readln(f, s1);
    readln(g, s2);
    i := 1;
    while (i <= Length(s1)) and (i <= Length(s2)) and
      (Copy(s1, 1, i) = Copy(s2, 1, i)) do
      Inc(i);
    writeln(h, Copy(s1, 1, i - 1))
  end;
  Close(f);
  Close(g);
  Close(h)

end.