Добавление нового элемента в очередь

Program z_3_1;
  type ukaz=^zap;
    zap=record
      inf:integer;
      sled:ukaz;
    end;
var a,s,f,b,first:ukaz;
  i,k,m,x,n:integer;
 
{Procedure Print(a:ukaz);
 begin
   a:=first;
   while a<>nil do
    begin
      write(a^.inf,' ');
      a:=a^.sled;
    end;
   writeln;
 end;}
procedure Sozd_und_wywod_Oz( Var n:integer);
Var
  i:integer;
  a,s,first:ukaz;
Begin
  New(a);
  a^.inf:=random(1001)-500;
  a^.sled:=nil;
  s:=a;
  first:=a;
  for i:=2 to n do
   begin
     new(a);
     a^.inf:=s^.inf+random(100)-50;
     a^.sled:=nil;
     s^.sled:=a;
     s:=a;
   end;
     a:=first;
   while a<>nil do
    begin
      write(a^.inf,' ');
      a:=a^.sled;
    end;
   writeln;
 end;
 
Procedure SozdElm(var a,b:ukaz; k,x:integer);
  Begin
    writeln('wwedite mesto elementa');
    writeln('k=');
    readln(k);
    writeln('wedite znazenie elementa');
    readln(x);
    a:=first;
      for i:=1 to k-2 do
         a:=a^.sled;
           new(b);
           b^.inf:=k;
           b^.sled:=a^.sled;
           a^.sled:=b;
           writeln;
        { f:=s^.sled;
         a^.sled:=f^.inf;
         s^.sled:=a^.inf; }
  end;
  { procedure vstavka_el(Var fEl:TRecPtr; fg:integer);
Var
  a:ukaz;
begin
  new(a);
  a^.inf:=fg;
  a^.next:=fEl^.next;
  fEl^.next:=a;
end; }
 
Begin
randomize;
writeln('wwedite kollizestvo elementov ozeredi');
readln(n);
Sozd_und_wywod_Oz(n);
SozdElm(k);
writeln('dsfsvfer');
{Print(a);}
readln;
End.