dracu.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program dracu;
type pnod=^nod;
     nod=record
     inf:integer;
     urm,pred:pnod;
     end;
var ultim,prim:pnod;
procedure creare(var prim,ultim:pnod);
          var n,i:integer;
              q:pnod;
begin
new(prim);prim^.pred:=nil;
q:=prim;
write('n=');
readln(n);
          for i:=1 to n do
              begin
              new(q^.urm);
              q^.urm^.pred:=q;
              q:=q^.urm;
              write('Dati informatie');
              readln(q^.inf);
              end;
new(ultim);
q^.urm:=ultim;
ultim^.urm:=ultim;
ultim^.pred:=q;
ultim^.urm:=nil;
end;
procedure inserare(prim,ultim:pnod);
          var q:pnod;
          begin
          new(q);writeln(q^.inf);
          q^.urm:=prim^.urm;
          q^.pred:=prim;
          prim^.urm^.pred:=q;
          prim^.urm:=q;
          end;
procedure inserare2(prim,ultim:pnod);
          var i,k:integer;
          p,q:pnod;
          begin
          repeat
          read(k);
          until k>=1;
          i:=0;
          p:=prim;
          while (i<>k-1)  and(p<>ultim^.pred) do
                          begin
                          inc(i);
                          p:=p^.urm;
                          end;
                          if i=k-1 then begin
                                        new(q);
                                        readln(q^.inf);
                                        q^.urm:=p^.urm;
                                        q^.pred:=p;
                                        p^.urm:=q;
                                        q^.urm^.pred:=q;
                                        end
                                   else write('Dracu');
end;
BEGIN
creare(ultim,prim);
inserare(prim,ultim);
inserare2(ultim,prim);
writeln;
END.