Ошибка:неверное количество факт.параметров

Procedure FreeStek(stek1:List;ch:char);
var
  tmp:List;
begin
  while stek1<>nil do
  begin
    tmp:=stek1;
    stek1:=stek1^.next;
    FreeMem(tmp,SizeOf(TList));{<-- Здесь програма останавливается}
  end;
end;

Program Spisok_kolco;
uses
  crt;
type
  Tinf=integer; {тип даних для мого списку}
  List=^TList;  {Вказівник на елемент типу TList}
  TList=record  {Динамічний запис}
    data:TInf;  {дані котрі зберігаються в списку}
    next:List;  {вказівник на наступний елемент списку}
  end;
 
{Процедура додання нового елемента в двохнаправлений список.}
procedure AddElem(var nach:List;znach1:TInf);
var
  tmp,tmp1:List;
begin
  if nach=nil then {Якщо список порожній то...}
  begin
    Getmem(nach,SizeOf(TList)); {створюємо елемент,вказівник nach уже буде мати адресу}
    nach^.next:=nach;
    tmp:=nach;
  end
  else {якщо список не порожній}
  begin
    tmp:=nach;
    while tmp^.next<>nach do
      tmp:=tmp^.next;
    GetMem(tmp1,SizeOf(Tlist));
    tmp1^.next:=nach;
    tmp^.next:=tmp1;
    tmp:=tmp1;
  end;
  tmp^.data:=znach1; {вносимо дані}
end;
 
{процедура друку списка}
procedure Print(spis1:List);
var
  nach:List;
begin
  if spis1=nil then
  begin
    writeln('Список порожній');
    exit;
  end;
  nach:=spis1;
  Write(spis1^.data, ' ');
  spis1:=spis1^.next;
  while spis1<>nach do
  begin
    Write(spis1^.data, ' ');
    spis1:=spis1^.next;
  end;
end;
 
{процедура видалення списка}
Procedure FreeStek(spis1:List);
var
  tmp,nach:List;
begin
  if spis1=nil then
    exit;
  nach:=spis1;
  tmp:=spis1;
  spis1:=spis1^.next;
  dispose(tmp);
  while spis1<>nach do
  begin
    tmp:=spis1;
    spis1:=spis1^.next;
    FreeMem(tmp,SizeOf(Tlist));
  end;
end;
 
{Функція пошука в списку}
Function SearchElemZnach(spis1:List;znach1:TInf):List;
var
  tmp:List;
begin
  tmp:=spis1;
  if spis1<>nil then
    if spis1^.data=znach1 then
      SearchElemZnach:=spis1
    else
    begin
      spis1:=spis1^.next;
      while (Spis1<>tmp) and (znach1<>spis1^.data) do
        spis1:=spis1^.next;
      if spis1=tmp then
        spis1:=nil;
    end;
  SearchElemZnach:=spis1;
end;
 
{процедура видалення елемента в списке}
Procedure DelElem(var spis1:List;tmp:List);
var
  tmpi:List;
begin
  if tmp=spis1 then
  begin
    tmpi:=tmp;
    while tmpi^.next<>spis1 do
      tmpi:=tmpi^.next;
    if tmpi=spis1 then
    begin
      spis1^.next:=nil;
      dispose(spis1);
      spis1:=nil
    end
    else
    begin
      tmpi^.next:=tmp^.next;
      spis1:=spis1^.next;
      dispose(tmp)
    end;
  end
  else
  begin
    tmpi:=spis1;
    while tmpi^.next<>tmp do
      tmpi:=tmpi^.next;
    tmpi^.next:=tmp^.next;
    dispose(tmp);
  end;
end;
 
{процедура видалення элемента по значенню}
procedure DelElemZnach(var Spis1:List;znach1:TInf);
var
  tmp:List;
begin
  tmp:=spis1;
  if znach1=tmp^.data then
  begin
    DelElem(spis1,tmp);
    exit;
  end;
  tmp:=tmp^.next;
  while tmp<>Spis1 do
  begin
    if tmp^.data=znach1 then
    begin
      DelElem(spis1,tmp);
      exit
    end;
    tmp:=tmp^.next;
  end;
end;
 
{процедура видалення элемента по позиції}
Procedure DelElemPos(var spis1:List;posi:integer);
var
  i:integer;
  tmp:List;
begin
  if spis1=nil then
  begin
    writeln('Список порожній');
    readkey;
    exit
  end;
  tmp:=spis1^.next;
  i:=1;
  while tmp<>spis1 do
  begin
    tmp:=tmp^.next;
    inc(i)
  end;
  if (posi<1) or (posi>i) then
  begin
    writeln('В списку ',i, ' елементів ');
    writeln('Елемент ',posi,' відсутній ');
    readkey;
    exit
  end
  else
  begin
    i:=1;
    tmp:=spis1;
    while i<posi do
    begin
      tmp:=tmp^.next;
      inc(i)
    end;
    DelElem(spis1,tmp);
  end;
end;
 
{Процедура сортування "бульбашковим методом" с зміненням лише даних.}
procedure SortBublInf(nach:list);
var
  tmp,rab:List;
  tmps:Tinf;
begin
  GetMem(tmp,SizeOf(Tlist));
  rab:=nach;
  while rab^.next<>nach do
  begin
    tmp:=rab^.next;
    while tmp<>nach do
    begin
      if tmp^.data<rab^.data then
      begin
        tmps:=tmp^.data;
        tmp^.data:=rab^.data;
        rab^.data:=tmps
      end;
      tmp:=tmp^.next
    end;
    rab:=rab^.next
  end
end;
 
procedure SortBublLink(var nach:List);
var
  tmp,pocle1,rab:List;
begin
  if nach=nil then
    exit;
  rab:=nach;
  while rab^.next<>nach do
  begin
    tmp:=rab^.next;
    while tmp<>nach do
    begin
      if tmp^.data<rab^.data then
      begin
 
      end;
      tmp:=tmp^.next;
    end;
    rab:=rab^.next;
  end;
end;
 
 
 
var
  SpisNach, {Вказівник на початок списка}
  tmpl:List; {Головна умова створення двонаправленого списку}
  znach,a,b:integer;
  ch:char;
begin
  SpisNach:=nil;
  repeat
    clrscr;
    Write('Програма для роботи з ');
    TextColor(4);
    Writeln('Кільцевим списком');
    TextColor(7);
    Writeln('Вибрати дію:');
    Writeln('1) Додати елементи в список');
    Writeln('2) Вивести список на екран');
    Writeln('3) Видалення елементів позначенню');
    Writeln('4) Видалення елемента по порядковому номеру');
    Writeln('5) Пошук елементів по значенню');
    Writeln('6) Сортування списку мбульбашковим методом змінюючи тільки дані');
    Writeln('7) вихід');
    writeln;
    ch:=readkey;
    case ch of
      '1':begin
            write('Введіть значення елемента котрий потрібно додати ' );
            readln(znach);
            AddElem(SpisNach,znach);
          end;
      '2':begin
            clrscr;
            Print(SpisNach);
            readkey;
          end;
      '3':begin
            Write('Введіть значення елемента котрий потрібно видалити ');
            readln(znach);
            DelElemZnach(SpisNach,znach);
          end;
      '4':begin
            Write('Введіть порядковий номер елемента котрий видаляєте ');
            readln(znach);
            DelElemPos(SpisNach,znach);
            readkey;
          end;
      '5':begin
            write('Введіть значення елемента котрий шукаємо ');
            readln(znach);
            tmpl:=SearchElemZnach(SpisNach,znach);
            if tmpl=nil then
              write('Введіть значення шуканого елементу ')
            else
              write('ЕЛемент ',tmpl^.data,' знайдено');
            readkey;
          end;
      '6':begin
            if SpisNach=nil then
            begin
              Write(' Список порожній  ');
              readkey
            end
            else
            begin
              SortBublInf(SpisNach);
              Write('Список відсортовано');
              readkey;
            end
          end;
    end;
  until ch='7';
  FreeStek(SpisNach);
end.