структуры данных

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('Spisok pust');
      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('spisok ');
 if ug^.next=nil then
    writeln('pust')
  else
    while x<>nil do
      begin
        write(x^.inf, '  ');
        x:=x^.next;
      end;
end;
procedure dobavlenieVxvost(ug:ukaz; z:integer);
  var x,y:ukaz;
begin
  new(x);
  x:=ug;
  while x^.next<>nil do
    x:=x^.next;
  new(y);
  y^.inf:=z;
  y^.next:=nil;
  x^.next:=y;
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. Sozdat spisok');
  writeln('2. Dobavit element v nachalo');
  writeln('3. Dobavit element v konets');
  writeln('4. udalit 1 element');
  writeln('5. exit');
  while true do
    begin
*     readln(a);
      case a of
        1: begin
             sozdanie(ug);    vivod(ug);
           end;
2: begin
             writeln('Vvedite element'); readln(a);
             dobavlenieVgol(ug,a);  vivod(ug);
           end;
        3: begin
             writeln('Vvedite element');  readln(a);
             dobavlenieVxvost(ug,a);   vivod(ug);
           end;
        4: begin
             udalenie1(ug);  vivod(ug);
           end;
        5: halt;
     end;
end; end.