Вычислить среднее арифметическое элементов стека (динамическое программирование)

program pr;
type
  Stk = ^tStk;        // указатель на запись стек
  tStk = Record  // сама запись-стек
    A: Integer;
    Next: Stk;
  end;
 
var
  P: Stk;         // переменная-указатель на стек
  S: String;
  N, tt, i: Integer;
  s1: real;
 
procedure Push(var pp: Stk; nn: Integer);  // процедура занесения в стек элемента
var
  T: Stk;
begin
  New(T);              // выделяем память под элемент
  T^.A := nn;            // заносим него значение 
  T^.Next := pp;       // указываем на след эл.
  pp := T;    // указатель на наш стек(голову)
end;
 
procedure Pop(var pp: Stk);      //  это для удаления эл. их стека (вам не надо)
var
  T: Stk;
begin
  if pp <> nil then
  begin
    Writeln(pp^.A);
    T := pp;
    pp := pp^.Next;
    Dispose(T);
  end;
end;
 
function avg(var pp: stk): real; // функция нахождения среднего арифметического элементов стека
var
  t: stk;
  sum, cout: integer;     // переменные для суммы и счётчик количества
begin
  sum := 0;
  cout := 0;
  while pp <> nil do        // пока стек не пуст( то есть в нём есть элементы выполняем следующее
  begin
    sum := sum + pp^.a;       // прибавляем к переменной сумм значение элемента 
    cout := cout + 1;            // наращиваем счётчик кол-ва элементов
    pp := pp^.next;  // указываем на след. элемент( груда говоря передвигаемся к следующему эл.
  end;
  avg := sum / cout; // значение функции будет равно сумме элементов разделённое на их количество 
end;
 
begin               // главная программа 
  P := nil;    // инициализируем стек
  for i := 1 to 10 do          // способы добавления эл. в тек могут  могут быть разные (здесь перебираются числа от 1 до 10 и заносятся по поочерёдно 
  begin
    push(p, i);      // заносим эл. i в стек
  end;
  s1 := avg(p);      // присваиваем переменной значение нашей функции выч. среднего арифметического 
  writeln('Среднее арифметическое элементов стека: ', s1);      // выводим результат 
end.