Печать линейного списка - Pascal

program grdf;
uses crt;
const maxlen=5;
 
type
 elemtype=string;
 list=record
 elems:array [1..maxlen] of elemtype;
 last:integer;
 end;
 
var L:list;
 
procedure insert(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 make_null (L:list);
begin
L.last:=0;
end;

begin
make_null(L);
 
insert (L, 'sdssd' , 1);
insert (L, 'fgfd' , 1);
insert (L, 'bxbdf' , 1);
insert (L, 'fgfgsfd' , 1);
insert (L, 'fgfgfs' , 1);
 
//L.elems[1]:='fgvdf';
 
writeln ('1 ГіГ·ГҐГ*ГЁГЄ ',L.elems[1]);
 
end.