Структура данных на основе статической памяти

Program LB6;
Uses crt;
const maxlen=5;
type
elemtype=ineger;
list=record elems:array[1..maxlen] of elemtype;
last:ineger;
end;
type
 elem_type=integer;
 list=record elems:array[1..max_elem] of elem;
 elem:=record first:byte info:elem_type; 
 end;
 next: byte 
 end;
 
 elem=record; 
 list=record info:elem_type;
 next, prev:byte;
 end;
 
 elems:array[1..max_elem] of elem;
 first, last:byte
 end;
 
L.elems[new_el].next:=L.elems[cur].next;
L.elems[new_el].prev:=L.elems[cur+1].prev;
L.elems[1].next
 
 
 
 
var L:list; ch; d; integer;
procedure make_null(var L:list);
begin
L.last:=0 end;
procedure insert(var L:list; x:elemtype; i:integer);
var p: integer;
 begin
 for p:=L.last downto i do
 L.elems[p+1]:=L.elems[p];
 L.elems[i]:=x;
 L.last:=L.last+1;
 end;
 procedure delete (var L:list; i:integer);
 var p:intger;
 begin
 for p:i to L.last-1 do
 L.elems[p]:=L.elems[p+1];
 L.last:=L.last-1
 end;
 
 
 
 procedure case_menu;
 begin
 Writeln ('Выберите пункт:');
 Writeln (1.'добавить элемент');
 Writeln (2.'удалить элемент');
 Writeln (3.'количество элементов списка');
 Writeln (4.'вывести список эл');
 Writeln (5.'Выход');
 end;
 
 function is_full(var L:list):boolen;
 begin is_full:=L.last=maxlen
 end;
 function is_empty(var L:list):boolean;
 begin is_empty:=L.last=0
 end;
 function is_valid(var L:list; i:integer):boolean;
 begin is_valid:=(1<=i) and (i<=L.last) 
 end;
 begin
 case_menu;
 repeat
 writeln('Быберите пункт в меню');
 Readln(ch);
 case ch of
 1:begin
 make_null(1);
 for i:=1 to 7 do
 1.elems[i]:=0;
 writeln('Список обнулён');
 writeln('');
 end;
 2:begin
 Writeln('Введите элемент');
 Readln(x);
 Writeln('На каком месте?');
 Readln(i); clrscr;
 if is_valid(1, i-1) then insert(1,x,i)
 else Writeln('Не верно i');
 case_menu;
 end;
 3:begin
 Writeln('Введите элемент');
 Readln(x);
 Writeln ('На каком?');
 Readln(i);
 l.elems[i]:=0;
 if is_valid(1,i) then delete(1, x, i)
 else Writeln('Не верно i');
 l.elems[l.last+1]:=0
 case_menu;
 end;
 4:begin
 case_menu;
 Writeln('Элемент в списке - ', l.last);
 end;
 5:begin
 for i:=1 to 1.last do
 write(l.elems[i]);
 writeln(l);
 end;
 end;
 until ch=0;
 end.