Задание 26 ЕГЭ

### uses school;
var count:=0;
var Max_count:=-200000;
var f:=ReadAllLines('C:\Users\danko\OneDrive\Рабочий стол\26.txt').
Skip(1).Select(f->(f.Split[0].Tointeger,f.Split[1].Tointeger)).Distinct.Sorted.ToA;
for var i:=1 to length(f)-2 do begin
   if (f[i+1][0] - f[i][0] = 0) and (f[i+1][1] - f[i][1] = 1) then count+=1 else count:=1;
  Max_count:=max(count,Max_count);
  end;
  Max_count.Pr;
//про частицы