Найти максимальную толщину краски на трубе

program IdiotPioners;
 
{$APPTYPE CONSOLE}     //Если ты программируешь в паскале, а не в делфи console application, то убери эту строку, и слежущую
 
uses
  SysUtils;
 
type
   meters = 0 .. 30002;      {Cоздаем два типа, чтоб меньше памяти занимало}
   koli4estvo = 0 .. 5001;
 
 
var
  x1:array[1..5000] of meters;        {в первом массиве - начальные координаты}
  x2:array[1..5000] of meters;      {во втором - конечные}
  x3:array[1..5000] of meters;      {в третьем-количество перекрытий на этом слое с другими}
  kol:koli4estvo;       {количество пионеров}
  k,i,c:meters;        {всякие левые переменные, типа для создания циклов}      
 
procedure findmax(a:array of meters; b:koli4estvo; var c:meters);      {процедура, которая приминяется к массиву,с использованием числа какого то и изменяется в процедуре переменная с} 
    var      {процедура ищет максимальное число перекрытий}
       max:koli4estvo;
    begin
       max:=a[1];        {до болли понятный алгоритм поиска максимального числа в массиве}
       for i:=2 to b do begin
       if a[i]>max then max:=a[i];
       c:=max;       {присвоение переменной с значения максимального числа} 
    end;
   end;
 
 
begin
writeln('Enter number of pioners:  '); readln(kol);       {считываем количество пенсионеров}
writeln('Vvodite koordinati (x1) i (x2) dlya ', kol, ' pionerov');
writeln('-----------------------------------------------------');
 
i:=1;
 
while i<>kol+1 do begin        {пока мы не заполним всех}
write(i,' : ','x1 =  ');readln(x1[i]);      {записываем координаты}
write(i,' : ','x2 =  ');readln(x2[i]);inc(i);      {в соответствующие массивы}
writeln('---------------------');
end;
 
for k:=1 to kol do begin      {цикл для поиска перекрытий участка k}
 For i:=1 to kol do begin            {элементами i}
     if (x1[k]<=x2[i]) and (x2[k]>=x1[i]) then x3[k]:=x3[k]+1;      {как раз и есть условие, когда они перекрываются тогда}
   end;       {записываем в kый элемент третьего массива +1}
end;
 
for k:=1 to kol do dec(x3[k]);       {вычитаем по единице из каждого элемента массива перекрытий}
      {т.к. там еще считается случай, перекрытия элементом самого себя}
 
findmax(x3,kol,c);        {выполняем функцию вверху}
 
writeln('---------------------');
write('Max number of layers:  ');
writeln(c,' mm');       {пишем полученное с}
writeln('Press Enter For Exit');
readln;
end.