Файлы

[Maray]

Добрый день!

Помогите пожалуйста с программой. Дано два файла(f и g), если есть совпадающие строки, то их записывают в третьем файле(h).

Программу написала, сделала два файла, в которых есть одна совпадающая строка. Должно в третьем файле написать эту строку. Программа пишет строку, но не так как надо. Переходит на несколько новых строк, затем пишет строку(причем каждый символ в строке отделяется пробелом), и потом ещё несколько переходов(ниже написала входные и выходной файлы) <-начало, >-конец файла

Файл f:
<aaaaaaa
bbbbbbb
ccccccc>

Файл g:
<ddddddd
ccccccc>

Файл h:
<





c c c c c c c c >


Текст программы:

Program j1;
var a, b:array of string;
    f, g, h: textfile;
    i, j: byte;
    Flag: boolean;
begin
  Flag:=false;
  Assign(f, 'f.txt');
  Assign(g, 'g.txt');
  Assign(h, 'h.txt');
  Reset(f);
 while not eof(f) do begin
  SetLength(a,Length(a)+1);
  Readln(f,a[High(a)]);
 end;

 Reset(g);
 while not eof(g) do begin
  SetLength(b,Length(b)+1);
  Readln(g, b[High(b)]);
 end;

 Rewrite(h);
 for i:=Low(a) to High(a) do
 for j:=Low(b) to High(b) do begin
  if a[i]=b[j] then
  begin
  Writeln(h, a[i]);
  Flag:=true;
  end;
 end;
 Close(h);
 if flag=false then
 begin
 Rewrite(h);
 begin
 for i:=Low(a) to High(a) do begin
  Writeln(h, a[i]);
  for j:=Low(b) to High(b) do
  writeln(h, b[j]);
  end;
  end;
  end;
 end