Подсчитать интервалы от m-го вхождения чисел до n-го в массиве

const
  fromN = 1;
  toN = 30;
  countN = toN - fromN + 1;
  
type
  tTri = record
    C : Integer;
    P : array [1..3] of Integer;
  end;
  
var
  A : array [fromN..toN] of tTri;
begin
  var K := ReadLnInteger('K =');
  Write('Последовательность: ');
  for var i := 1 to K do
    begin
      var N := Random(fromN, toN);
      Print(N);
      A[N].C += 1; if A[N].C < 4 then A[N].P[A[N].C] := i;
    end;
  WriteLn(NewLine, 'Диапазоны между вторым и третьим вхождением:');
  for var i := fromN to toN do
    WriteLn(i, ' - ', A[i].C < 3 ? 'нет' : (A[i].P[3] - A[i].P[2] - 1).toString);
end.

var F : File of Integer;
…
Assign(F, FileName);
Reset(F);
while Not EOF(F) do
  begin
    Read(F, N);
    …
  end;

for var … do
begin
  N := Random(…);
…
end;

{$reference System.Core.dll}
uses
  System, System.Linq, System.IO, arrays, System.Collections.Generic;
  
const
  m = 2;
  n = 3;
 
type
  Pair = KeyValuePair<string, integer>;
var 
  a : array of string;
  dict : Dictionary<string, list<integer>> := new Dictionary<string, list<integer>>;
  
begin
  a := &File.ReadAllText('d:\test\myfile.txt').Split('  '.ToCharArray()).ToArray();
  a.Writeln(' ');
 
  foreach var p : pair in a.Select((s : string, i : integer) -> new pair(s, i)) do
  begin
    if not dict.ContainsKey(p.Key) then dict.Add(p.Key, new List<integer>);
    dict[p.Key].Add(p.Value)
  end;
 
  foreach var v : keyvaluepair<string, list<integer>> in dict do
  begin
    if v.Value.Count >= n then
      writeln(v.Key, ' : со вхождения ', m, ' по ', n, ' - ', pred(v.Value[n - 1] - v.Value[m - 1]), ' позиций')
    else
      writeln(v.Key, ' - нет результата');
  end;
end.