Сколько элементов стека, начиная с вершины, находится до элемента с максимальным значением. - Free Pascal

program pr;
type
  prec = ^trec;
  trec = record 
    num: integer;
    next: prec;
  end;
var
  stack: prec;
procedure push(const arg: integer);
var
  p: prec;
begin
  new(p);
  p^.num := arg;
  p^.next := stack;
  stack := p;
end;
procedure printstack;
var
  p: prec;
begin
  p := stack;
  while p <> nil do
  begin
    writeln(p^.num);
    p := p^.next;
  end;
end;
function poisk(stack: prec): integer;
var
  max: integer;
  buf: prec;
begin
  buf := stack;
  max := buf^.num;
  while buf <> nil do
  begin
    if buf^.num > max then max := buf^.num;
    buf := buf^.next;
  end;
  poisk := max;
end;
function co(stack: prec; const c: integer): integer;
var
  p: prec;
  cout: integer;
begin
  cout := 0;
  p := stack;
  while (p <> nil) and (p^.num <> c) do
  begin
    cout := cout + 1;
    p := p^.next;
  end;
  co := cout;
end;
var
  S: string;
  i, m, c, k: integer;
begin
  for i := 1 to 10 do
  begin
    m := random(21);
    push(m);
  end;
  printstack;
  c := poisk(stack);
  writeln('Наибольший элемент: ', c);
  k := co(stack, c);
  writeln('Количество элементов, которые находятся до наибольшего: ', k);
end.