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

[alex-soft]

Я студент-заочник и мне дали задание:
Создать меню обслуживающее список типа очередь
В меню должны быть:
• Создание списка;
• Добавление элементов списка;
• Выведение всех элементов списка;
• Выведение элементов списка за номером;
• Исключение элементов списка за номером;
• Исключение элементов списка за свойством.
Количество элементов: 9. Поля: word, Word, Char. Способ сортировки: вставка. Критерий сортировки: по 3 полю по уменьшению.
Что мог, сделал на предыдущей сессии, а сейчас смотрю в книгу, вижу много интересного.
Вот мои наброски:

uses crt;
type pp=^el;
el=record
     pole1:word;
     pole2:word;
     pole3:char;
     pnt:pp;
     end;
var pb,x,uk:pp;
k,i:byte;
 
procedure sozd(var uk:pp);
var tt:pp;
begin
randomize;
new(tt);
uk:=tt;
tt^.pole1:=random(100);
tt^.pole2:=random(100);
tt^.pole2:=random(100);
for i:=1 to 8 do
begin
new(tt^.pnt);
tt:=tt^.pnt;
tt^.pole1:=random(100);
tt^.pole2:=random(100);
tt^.pole2:=random(100);
end;
tt^.pnt:=nil;
writeln('список створено');
end;
 
procedure vyv(uk:pp);
begin
if uk=nil then writeln('список порожній')
else writeln(' поле 1','':6,' поле 2','':6,' поле 3','':6);
while uk<>nil do
begin
writeln('':2,uk^.pole1, '':12,uk^.pole2,'':12, uk^.pole3,'':12);
uk:=uk^.pnt;
end;
readkey;
end;
 
 
 
 
procedure dodav(var uk:pp);
var newElem:pp;
begin
randomize;
new(newElem);
newElem^.pole1:=random(100);
newElem^.pole2:=random(100);
newElem^.pole2:=random(100);
 
newElem^.uk:=tt^.pnt;
newElem^.pnt:=nil;
writeln('Елемент додано');
end;
 
 
 
procedure vivzanom(uk:pp);
begin
{
}
end;
 
procedure vilzanom(uk:pp);
begin
{
}
end;
 
procedure vilzavlas(uk:pp);
begin
{
}
end;
 
begin
while true do
begin writeln;
writeln('виберіть операцію над списком:');
writeln('1:створення списку');
writeln('2:виведення вмісту полів елементів списку*');
writeln('3:додати елемент списку*');
writeln('4:вивести елемент списку за номером*');
writeln('5:вилучення елемента списку за номером*');
writeln('6:вилучення елемента списку за властивістю*');
writeln('7:вихід з програми');
read(k);
case k of
1:sozd(pb);
2:vyv(pb);
3:dodav(pb);
4:vivzanom(pb);
5:vilzanom(pb);
6:vilzavlas(pb);
7:exit;
else continue;
end;
end;
end.

Помогите, пожалуйста, очень надо.