Сравнение компонет файла

program lab5v11;
var
 F,G,H: text;
 j2,y,i,j,kf,kg,kh:integer;//char
begin
 assign(F,'FileF.dat');
 assign(G,'FileG,dat');
 assign(H,'FileH.dat');
 rewrite(F);
 rewrite(G);
 rewrite(H);
 write('Введите кол-во компонент файла F = ');
 read(j);
 for i := 1 to j do
 //if (kf <> chr(10)) then 
  begin
   kf := random (1,2);
   write(kf:4);
   write(F,kf);
  end;
 close(F);
 writeln;
 write('Введите кол-во компонент файла G = ');
 read(j2);
 for i := 1 to j2 do
// if (kg <> chr(10)) then
  begin
    kg := random(1,2);
    write(kg:4);
    write(G,kg);
  end;
  close(G);
  reset(F);
  reset(G);
  begin
{ while not eof(F) do
  begin
    read(F, kf);
  end;
 while not eof(G) do
  begin
   read(G, kg);
  end;
  begin
   if (kf = kg) then
   begin
   y := y + 1;
  end;
  close(F);
  close(G);
  end;
 end;}
  writeln;
  write('Кол-во совпадающих копонент = ');
  writeln(y);
end.

 {begin
  while not eof(F) do
   begin
     read(F, kf);
   end;
  while not eof(G) do
   begin
    read(G, kg);
   end;
   begin
    if (kf = kg) then
    begin
    y := y + 1;
   end;
   close(F);
   close(G);
   end;
  end;}

program lab5v11;
uses crt;
const nmax=100;
type tfile=file of integer;
//опишем процедуру удаления элементов из файла
//это нужно для удаления найденных пар, чтобы не было повторений
procedure delete(var f:tfile;p:integer);//параметры файл и индекс элемента
var i,x,y:integer;
begin
if p=filesize(f)-1 then//если последний
 begin
  seek(f,filesize(f)-1);
  truncate(f);//обрезаем
 end
else//если не последний
 begin
  for i:=p to filesize(f)-2 do//на  этот элемент
   begin
    seek(f,i+1);{все следующие сдвигаем на 1 вверх}
    read(f,x);
    seek(f,i);
    write(f,x);
   end;
  seek(f,filesize(f)-1);//встаем в последний
  truncate(f);//и обрезаем
 end;
end;
var f,g,h: tfile;
    n,i,j,x,y,k:integer;
    b:boolean;
begin
assign(f,'FileF.dat');
assign(g,'FileG,dat');
assign(h,'FileH.dat');
rewrite(f);
rewrite(g);
rewrite(h);
write('Введите кол-во компонент файла F = ');
read(n);
for i := 1 to n do
 begin
  x := random (10);
  write(f,x);
 end;
write('Введите кол-во компонент файла G = ');
read(n);
for i := 1 to n do
 begin
  x := random(10);
  write(g,x);
 end;
reset(F);
reset(G);
writeln('Содержание файла F:');
while not eof(f) do
 begin
  read(f, x);
  write(x,' ');
 end;
writeln;
writeln('Содержание файла G:');
while not eof(G) do
 begin
  read(g,x);
  write(x,' ');
 end;
writeln;
k:=0;
seek(F,0);//вернемся в начало файла F
i:=0;
while i<=filesize(f)-1 do//пока не проверены все элементы файла F
 begin
  seek(f,i);
  read(f,x);
  b:=false;
  j:=0;
  while(j<filesize(g))and not b do//сравниваем с элементами файла G
   begin
    seek(g,j);
    read(g,y);
    if x=y then //если пара
     begin
      b:=true;//фиксируем
      k:=k+1;//считаем
      Delete(f,i);//удаляем из файла F
      Delete(g,j);//удаляем из файла G
     end
    else j:=j+1;//не равные, вперед по G
   end;
  if not b then i:=i+1;//то же по F
 end;
close(F);
close(G);
write(h,k);
reset(h);
writeln('Содержание файла H:');
read(h,k);
write('Количество совпадений=',k);
close(h);
end.