Переделать программу чтобы она находила количество записей которые имеют одинаковые поля и выводила их

uses crt;
 
 
Type Zapis = record
       Field1: real;
       Field2: real;
     End;
var
     mZapis: array[1..8] of ^Zapis;
     VarZapis: ^Zapis;
     F: file of Zapis;
     NameFile: string[8];
     sum: real;
     Range, i, Kol: integer;
 
begin
     Range:=20000;
     ClrScr;
     WriteLn;
     Write(' iмя файлa (до 8 ): ');
     ReadLn(NameFile);
     if Length(NameFile) = 0 then halt;
     assign(F, NameFile+'.TXT');
     rewrite(F);
     Randomize;
     for i := 1 to 8 do
     begin
        VarZapis^.Field1:= (Random(Range) - Range/2)/100;
        VarZapis^.Field2:= (Random(Range) - Range/2)/100;
        write(F,VarZapis^);
     end;
     Close(F);
     WriteLn;
     WriteLn('.');
     readkey;
     ClrScr;
     WriteLn;
     WriteLn(' файлу :');
     WriteLn;
     assign(F, NameFile+'.TXT');
     Reset(F);
     for i := 1 to 8 do
     begin
         New( mZapis[i] );
         Read(F, mZapis[i]^);
         WriteLn('m[',i:1,'].Field1= ',mzapis[i]^.Field1:7:2,'  m[',i:1,'].Field2= ',mZapis[i]^.Field2:7:2 );
     end;
     Close(F);
     WriteLn;
     WriteLn(':');
     WriteLn;
     Kol:=0;
     for i := 1 to 8 do
        if (mZapis[i]^.Field1 < 0) and (mZapis[i]^.Field2 < 0) then
        begin
          Kol:=Kol+1;
          sum:=mZapis[i]^.Field1+mZapis[i]^.Field2;
          WriteLn('m[',i:1,'].Field1= ',mzapis[i]^.Field1:7:2,
          '  m[',i:2,'].Field2= ',mZapis[i]^.Field2:7:2,'  Сума= ',sum:8:2 );
        end;
     if Kol = 0 then WriteLn('');
 
     for i := 1 to 8 do  Dispose(mZapis[i]);
end.

 for i:=1 to n do//от 1, до размерности массива
  begin
    pr:=false;//признак для проверки, не проверяли ли мы элемент a[i] ранее
    for j:=1 to i-1 do
    if a[i]=a[j] then begin
                        pr:=true;
                        break;
                      end;
    if pr then continue;//если мы проверяли элемент ранее, то пропускаем остальную часть цикла
    kol:=1;//количеству присваиваем 1. переменная хар-щая какое кол-во раз элемент a[i] встреч. в массиве
    for j:=i+1 to n do
    if a[i]=a[j] then inc(kol);
    if kol>1 then writeln('Элемент ',a[i],' повторяется ',kol,' раз');//если элемент не 1 раз встречается в массиве, то выводим
  end;