Создать очередь из целых чисел. Определить среднее значение элементов очереди. Организовать просмотр данных очереди

type
  Tinf = integer;{тип данных, который будет храниться в элементе очереди}
  List = ^TList;{Указатель на элемент типа TList}
  TList = record {А это наименование нашего типа "запись" обычно динамические структуры описываются через запись}
    data: TInf;  {данные, хранимые в элементе}
    next: List;   {указатель на следующий элемент}
  end;
 
{Процедура добавляющая элемент в очередь}
procedure AddElem(var stek1: List; znach1: TInf);
var
  tmp: List;
begin
  new(tmp); {выделяем в памяти место для нового элемента}
  tmp^.next := stek1;  {указатель на следующий элемент "направляем" на хвост очереди}
  tmp^.data := znach1; {добавляем к элементу данные}
  stek1 := tmp; {хвост очереди изменился, надо перенести и указатели на неё}
end;
 
{Процедура вывода очереди начиная с хвоста}
procedure Print(stek1: List);
begin
  if stek1 = nil then {проверка на пустоту очереди}
  begin
    writeln('Очередь пуста.');
    exit;
  end;
  while stek1 <> nil do {пока указатель stek1 не станет указывать в пустоту}
  begin{а это произойдёт как только он перейдёт по ссылке последнего элемента}
    Write(stek1^.data, ' '); {выводить данне}
    stek1 := stek1^.next{и переносить указатель в начало очереди}
  end;
end;
 
{Процедура освобождения памяти занятой очередью}
procedure FreeStek(stek1: List);
var
  tmp: List;
begin
  while stek1 <> nil do {пока stek1 не станет указывать в "пустоту" делать}
  begin
    tmp := stek1; {указатель tmp направим на хвост очереди}
    stek1 := stek1^.next; {хвост очереди перенесём на следующий за данным элементом элемент}
    Dispose(tmp);{освободим память занятую под удаляемый элемент}
  end;
end;
 
var
  Stk, {переменная, которая всегда будет указывать на "хвост" очереди}
  tmpl: List; {рабочая переменная}
  znach: Tinf; {данные вводимые пользователем}
  i, k, n: integer;
  s: real;
 
begin
  Stk := nil;
  n := 10;
  s := 0;
  for i := 1 to n do 
  begin
    readln(znach); {считываем значение добавляемого нового элемент}
    AddElem(Stk, znach);
  end;
  Print(Stk); {вызов процедуры вывода}
  while stk <> nil do 
  begin
    s := s + stk^.data; 
    stk := stk^.next
  end;
  FreeStek(Stk); {освобождаем память занятую очередью}
  writeln;
  writeln('Average: ', s / n);
end.