список. процедура RETRIEVE

//function RETRIEVE(p1:integer;L:list):string;
  //begin
    //if (p1-1<=n-1)and(p1-1>0) then RETRIEVE:=l.elem[p1]
    //else RETRIEVE:=' ';
  //end;
 
  function retrive (p1:integer;L:list): string;
 begin
   result:=L.elem[p1];
   exit;
 end;

program Difficulty;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=5;
type list=record
      elem:array[1..n]of string;
      last:integer;
     end;
var   x:string;
      p:integer;
      s:list;
      j:integer;
      t:boolean;
 
procedure INSERT(x1:string;p1:integer;var L: LIST ) ;
  var q: integer;
  begin
    if L.last >=n then writeln('spicok polon')
        else
    if (p1 > L.last + 1) or (p1 < 1) then writeln('takoi posizii net')
        else begin
    for q:= L.last downto p1 do
      L.elem[q + 1] := L.elem[q];
      L.last := L.last + 1;
      L.elem[p1] := x1;
        end;
end;
 
 
 
function LOCATE(x1:string;L:list;var t1:boolean):integer;
  var q:integer;
  begin
    LOCATE:=0;
    t1:=false;
    for q:=1 to l.last do
      if x1=l.elem[q] then begin
        LOCATE:=q;
        t1:=true;
      end;
  end;
 
function RETRIEVE(p1:integer;L:list):string;
  begin
    if (p1-1<=n-1)and(p1-1>0) then RETRIEVE:=l.elem[p1]
    else RETRIEVE:=' ';
  end;
 // function retrive (x:string;L:list): integer;
 //begin
   //result:=L.elem[p1];
   //exit;
 //end;
 
function NEXT(p1:integer;L:list):string;
  begin
    if (p1+1<=n-1)and(p1+1>0) then NEXT:=l.elem[p1+1];
  end;
 
function PREVIOS(p1:integer;L:list):string;
  begin
    if (p1+1<=n-1)and(p1+1>0) then PREVIOS:=l.elem[p1-1];
  end;
 
function FIRST(p1:integer;L:list):string;
  begin
    if (p1>=1) then FIRST:=l.elem[p1-2];
  end;
 
procedure MAKENULL(var L:list);
  var q:integer;
  begin
    for q:=1 to n do
      l.elem[q]:=' ';
  end;
 
procedure PRINTLIST(l:list);
  var i:integer;
  begin
    for i:=1 to l.last do
      write(' ',l.elem[i]);
    writeln;
  end;
 
begin
  for j:=1 to n-1 do begin
    write('element:');
    readln(x);
    insert(x,j,s);
  end;
 
    PRINTLIST(s);
writeln('vstavka elementa x v poziciu p');
write('p:');
readln(p);
write('x:');
readln(x);
    INSERT(x,p,s);
    PRINTLIST(s);
//writeln('delete element c pozicii p');
//write('p:');
//readln(p);
    //DELETE(p,s);
    //PRINTLIST(s);
write('vvod x:');
readln(x);
    j:=LOCATE(x,s,t);
if t=true then writeln('function locate:',j)
else writeln('takogo simbola v spiske net!');
write('vvod p:');
readln(p);
writeln('function RETRIEVE - vozvrashenie elementa posizii p:',RETRIEVE(p,s));
writeln('function NEXT - vozvrashenie elemnta posizii p+1:',NEXT(p,s));
writeln('functuon PREVIOS - vozvrashenie elemnta posizii p-1:', PREVIOS(p,s));
writeln('function FIRST - vozvrashenie pervoy posizii:', FIRST(p,s));
writeln('spisok posle MAKENUL:');
    MAKENULL(s);
    PRINTLIST(s);
readln;
end.