Динамические структуры на Pascal

{Интенсивность потока телефонных звонков в агентство по заказу железнодорожных билетов, имеющему один 
телефон, составляет P вызовов/час. Продолжительность оформления заказа на билет равна t минут.
Агентство работало T0 часов. По запросу с клавиатуры определить среднее время ожидания в очереди за 
период времени T1..T2 (T2<T0) .}
const p=20;              //количество вызовов за час
      tp=60 div p;       //длительность до появления нового вызова в минутах
      tn=5;             //длительность обслуживания вызова в минутах 
      t0=60;             //общее время в минутах
var que: array of record //очередь 
      num,               //номер объекта
      time,              //когда вошел в очередь
      next:integer;      //ссылка на следующий объект
end;
 
var   mem,               //переменная для динамической памяти
      len,               //объектов в очереди     
      tail,              //хвост очереди
      mnum,              //номер обслуживаемого объекта
      mtime,             //когда объект становится на обслуживание
      i,j,x,n,t,t1,t2,sum,k: integer;
begin
  writeln('Введите период времени');
  write('T1=');
  read(t1);
  write('T2=');
  read(t2);
  mem:=1;
  setlength(que,1);
  sum:=0;
  k:=0;
  len:=0;
  tail:=0;
  mnum:=0;
  mtime:=0;
  n:=1;
  t:=1;
  while (t<=t0) do begin
    //объект уходит
    if ((mnum<>0) and ((t-mtime)=tn)) then begin { Если есть обслуживаемый объект (mnum не равен 0) 
    и прошло время обслуживания tn, то объект уходит.}
      if (len=0) then begin
        mnum:=0;
        mtime:=0;
      end
      else begin
        if (len=1) then begin { Если в очереди есть объекты, то первый из 
    них становится обслуживаемым, а остальные сдвигаются на один шаг.}
          mnum:=que[tail].num;
          mtime:=t;
          if ((t1<=t) and (t2>=t)) then begin
            sum:=sum+t-que[tail].time;
            k:=k+1;
          end;
          tail:=0;
          len:=0;
        end
        else begin
          j:=tail;
          while (que[que[j].next].next<>0) do j:=que[j].next;
          mnum:=que[que[j].next].num;
          mtime:=t;
          if ((t1<=t) and (t2>=t)) then begin
            sum:=sum+t-que[que[j].next].time;
            k:=k+1;
          end;
          que[j].next:=0;
          len:=len-1;
        end;
      end;
    end;
    if (t mod tp = 1) then begin {Если прошло время tp до появления нового вызова, 
    то создается новый объект. Если нет обслуживаемого объекта, то он становится обслуживаемым.}
      if (mnum=0) then begin
        mnum:=n;
        n:=n+1;
        mtime:=t;
      end
      else begin
        mem:=mem+1;
        setlength(que,mem);
        j:=mem-1;
        len:=len+1;
        que[j].num:=n;
        n:=n+1;
        que[j].next:=tail;
        que[j].time:=t;
        tail:=j;
      end;
    end;
    t:=t+1;
  end;
  
  if (T1>T2) then begin write ('Т2 должно быть больше Т1, ошибка ввода');
  exit;
  end;
  writeln('Среднее время ожидания в очереди: ',sum/k,' минуты');
  writeln('(Cчитаются те, кто на момент T2 уже вышел из очереди)');
  writeln();
  if (mnum<>0) then write('Сейчас обрабатываюся номер: ');
  if (mnum<>0) then write(mnum,' ');
  writeln;
  if (len<>0) then write('В очереди стоят номера: ');
  j:=tail;
  while (que[j].next<>0) do begin
    write(que[j].num,' ');
    j:=que[j].next;
  end;
  if (len<>0) then write(que[j].num);
end.