Файлы

const File1='FileInteger.dat';
      File2='FileHelp.dat';
Type TFile = file of Integer;
Procedure CreateFile(Var TF : TFile; N1 : Integer);
Var i, k : integer;
begin
  Rewrite(TF);
  for i := 1 to N1 do
  begin
    k := Random(5) + 1; Write(TF, k);
  end;
  Close(TF);
end;
Procedure LoadFromFile(Var TF : TFile);
Var k : Integer;
begin
  Reset(TF);
  while not EOF(TF) do
  begin
    Read(TF, k); Write(k, ' ');
  end;
  Close(TF);
end;
function SearchElement(var f:tfile; e:integer):word;
var el:integer;//текущий элемент
     b:word;
begin
  searchelement:=0;
  reset(f);
  b:=0;
  while (not eof(f)) do
  begin
    read(f, el);
    if el=e then b:=b+1;
  end;
  searchelement:=b;
end;
Var F1, f2 : TFile;
  n, k{komponenta}, ke, k2: Integer;
begin
 
  randomize;
  assign(f1, file1);
  assign(f2, file2);
  write ('Kol-vo component '); readln (n);
  createfile(f1, n);
  rewrite (f2);
  reset(f1);
 
 
  while not eof(f1) do
  begin
    read(f1, k);
    n:=0;
 //   writeln ('searchElement(f2, k)  ', searchElement(f2, k));
    if searchElement(f2, k)=0 then
    begin
      write (f2, k);
      ke:=filepos(f1);//запоинаем позицию
      n:=searchelement(f1, k);
      reset(f1);
      seek(f1, ke);//возвращаеися ан позицию
      writeln (k, ' -', n);
    end;
  end;
 
 
  loadfromfile(f1);
  {writeln;
  loadfromfile(f2);}
  readln;
end.