Написать программу для работы со списком очередей списков

Program queue;
Uses Crt;
Type
ukaz=^e1;
e1=record
zn:integer;
next:ukaz;
end;
var
i:integer;
qu:ukaz;
 
Procedure init(var h: ukaz);
begin
new(h);
h^.next:=nil;
end;
 
procedure ins(h:ukaz; zn:integer);
var
p:ukaz;
begin
while h^.next<> nil do
h:=h^.next;
h^.zn:=zn;
new(p);
p^.next:=nil;
h^.next:=p;
end;
function del(h: ukaz):integer;
var
p:ukaz;
begin
if h^.next =nil then
begin
writeln('ochered1 pysta');
readln;
exit;
end;
p:=h^.next;
write('udalenie elementa: ', h^.zn);
readln;
qu:=p;
dispose(h);
end;
 
procedure viewing(h: ukaz);
var
t:integer;
begin
h:=qu;
t:=1;
while h^.next <> nil do
begin
writeln ('element ', t, ',', h^.zn);
inc(t);
h:=h^.next;
 
end;
if t=1 then
writeln ('ochered` pusta');
readln;
end;
 
var
x:integer;
begin
repeat
clrscr;
writeln('Rabota s ochered');
writeln('menu:');
writeln('1 - sozdat ochered');
writeln('2 - Dobavitm element');
writeln('3 - Izvlech elememnt');
writeln('4 - Prosmotret` ocheredi');
writeln('5 - Exit');
writeln;
write('vvedite nomer1 punkta ');
readln(i);
case i of
1: init(qu);
2: begin
write ('vvedite element: ');
readln(x);
ins (qu,x);
end;
3: del(qu);
4: viewing(qu);
end;
until i = 5;
end.