Интересует несколько слов

[Maxxtro123]

Доброго времени суток,у меня возникла в вам пара вопросов.
У меня есть готовая программа по паскалю,но меня интересуют некоторые названия,если не сложно подскажите:

: uses
   Crt;
const
  eps = 0.00001;
type
  elptr = ^el;

  el = record
    data       : real;
    next       : elptr;
  end;

procedure CreateList(var Head: elptr);
var
  C            : char;
  P            : elptr;
begin
new(P);
Head:=P;
repeat
  write('Input element = '); readln(P^.data);
  write('Is it last? Y/N ');  readln(C);
  if upcase(C)='Y' then P^.next:=nil else begin
    new(P^.next);
    P:= P^.next;
  end;
until upcase(C)='Y';
end;

procedure OutList(Head: elptr);
var
  P            : elptr;
  I            : byte;
begin
P:=Head;
I:=0;
while P<>nil do begin
  Inc(I);
  writeln('Element number ',I,' ',P^.data:10:5);
  P:=P^.next;
end;
 end;

procedure DelEl(var Head,El: elptr);
var
  P: elptr;
begin
P:=Head;
If P = El then Head:=Head^.next
  else begin
    while P^.next <> El do
      P:=P^.next;
    P^.next:=P^.next^.next;
  end;
El^.next:=nil;
end;


procedure  CreateNew(var head1: elptr ;head2: elptr);
var
  P1,P2:elptr;
begin
P1:=head1;
While  P1^.next <> nil do P1:=P1^.next;
P1^.next:=head2;

P1:=Head1;
repeat
  P2:=Head1;
  repeat
    if (abs(P2^.data - P1^.data)<eps)and(P1<>P2) then
      DelEl(Head1,P2);
    P2:=P2^.next;
  until P2 = nil;
  P1:=P1^.next;
until P1 = nil;
end;

var
  P1,P2: elptr;
begin
clrscr;
  writeln('List 1: ');
  CreateList(P1);
  OutList(P1);

  writeln('List 2: ');
  CreateList(P2);
  OutList(P2);

  writeln('List 3: ');
  CreateNew(P1,P2);
  OutList(P1);
 readln
end.

а именно:
1)type
elptr = ^el;
el = record
2)nil(P^.next:=nil)
3)P:=Head;
If P = El then Head:=Head^.next