Вычисление через линейный список

Program spusok; 
   uses crt;
   type TPtr=^Telem;
    Telem=record
       inf:integer;
       left,right:TPtr;
      end;
   var begl,endl,p,pk:TPtr;
       i,n,x,a,b,s:integer;
begin
   clrscr;
   writeln('vvedite k-stvo elementov(parnoe):');
   read(n);
   new(p);
   begl:=p; endl:=p;
   writeln('vvedite x1:');
   read(x);
   p^.inf:=x;
   p^.left:=nil;
   p^.right:=nil;
   P:=nil;
   for i:=2 to n do 
      begin
      new(p);
      writeln('vvedite x',i);
      read(x);    {ввод списка}
      p^.inf:=x;
      p^.left:=endl;
      endl^.right:=p;
      endl:=p;
          p:=nil;
      end;
   
   pk:=endl;
   p:=begl;
   s:=0;
   while p^.right<>nil do
    begin
            a:=p^.inf;
        b:=pk^.inf;  
            s:=s+a*b;  {подсчёт по формуле}
        p:=p^.right;
        pk:=pk^.left;
        end;
   
 
   writeln('otvet=',s);
   readln;
 
   for i:=1 to n do
      begin
       p:=begl;
           begl:=begl^.right; {удаление списка}
           dispose(p);
      end;
 
end.