Процедура: нахождение суммы элементов списка

type ukaz=^spisok;
     spisok=record
       inf:integer;
       next:ukaz;
       end;
  var
  ug:ukaz;
  a:integer;
procedure udalenie1(var ug:ukaz);
  var x:ukaz;
begin
  if ug^.next=nil then
begin
      writeln('Список пуст');
      exit;
    end
  else
    begin
      new(x);
      x:=ug^.next;
      ug:=x^.next;
      dispose(x);
    end;
end;
procedure vivod( ug:ukaz);
var x:ukaz;
begin
  new(x);
  x:=ug^.next;
  write('список ');
 if ug^.next=nil then
    writeln('пуст')
  else
    while x<>nil do
      begin
        write(x^.inf, '  ');
        x:=x^.next;
      end;
end;
procedure dobavlenieVgol(var ug:ukaz; z:integer);
  var x:ukaz;
begin
  new(x);
  x^.inf:=z;
  x^.next:=ug^.next;
  ug^.next:=x;
end;
procedure sozdanie(var ug:ukaz);
  begin
    new(ug);
    ug^.next:=nil;
  end;
begin
  writeln;
  writeln('1. Создать список');
  writeln('2. Добавить элемент в начало');
  writeln('3. Найти сумму элементов спика');
  writeln('4. Удалить 1-ый элемент списка');
  writeln('5. Выход');
  while true do
    begin
    readln(a);
      case a of
        1: begin
             sozdanie(ug);    vivod(ug);
           end;
      2: begin
             writeln('Введите элемент'); readln(a);
             dobavlenieVgol(ug,a);  vivod(ug);
           end;
        3: begin
                vivod(ug);
           end;
        4: begin
             udalenie1(ug);  vivod(ug);
           end;
        5: halt;
     end;
end.