В двумерном массиве найти количество строк с одинаковыми элементами

const n = 638; m = 8; {в двумерном массиве найти количество одинаковых элементов}
var f: text;
    str: string;
    a, b: array[1..n, 1..m] of integer;
    i, j, k, p, nap, cmp: integer;
begin
 Assign(f, 's-4ucm.txt'); ReSet(f);
 readln(f, str);
 for i := 1 to n do
  begin
   for j := 1 to m do
    begin
     read(f, a[i, j]);
     b[i, j] := 0;
     write(a[i, j]: 3);
    end;
    writeln;
  end;
  for i := 1 to n-1 do
   for k := 2 to n do
    for j := 1 to m do    
     for p := 1 to m do
      if(a[k, p] = a[i, j]) and ((k = i + 1)) then b[i, j] := 1;
      cmp := 0;
      for i := 1 to n-1 do
       nap := 0;
       for j := 1 to m do
         if (b[i, j] = 1) then inc(nap);
         if nap = 1 then inc(cmp);
        writeLn(' Количество пар соседних строк, содержащих по ', nap, ' одинаковых элементов = ', ' ', cmp);
 Close(f);
end.

{$reference System.Core.dll}
uses System.Linq, System.IO;
 
function Line(s : string) : integer;
begin
  result := integer.Parse(s);
end;
 
var 
  a : array of array of integer;
  nap : integer := 3;
  lines : integer := 0;
begin
  a := &File.ReadAllLines('d:\test\thread1356961.txt').
    Select((s : string) -> s.Split('  '.ToCharArray()).Select(Line).ToArray()
  ).ToArray();
  
  for i : integer := 0 to a.Length - 2 do
  begin
    if a[i].Intersect(a[i+1]).Count() = nap then 
    begin
      writeln('Lines : ', i:4, i+1:4);
      Inc(lines);
    end;
  end;
  
  writeln('Количество пар соседних строк, содержащих по ', nap, ' одинаковых элементов = ', lines);
end.

Lines :    0   1
Lines :    4   5
Количество пар соседних строк, содержащих по 3 одинаковых элементов = 2

  a := &File.ReadAllLines('d:\test\thread1356961_1.txt').
    Select((s : string) -> s.Split('  '.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries).Select(Line).ToArray()
  ).ToArray();