Поясните мне этот код шаг за шагом

[kroatoani]

Добрый день всем. У меня этот код ну я его не со всем понимаю.
Задача:
Описать рекурсивную процедуру

procedure dele(var r:link; w:integer);
удаляющую из списка r первое вхождение.
Его код : 
unit lib;
interface
uses
  Windows, SysUtils, Grids;
type
  TInfo = integer;
  Pt = ^T;
  T = record
    Info: TInfo;
    Next: Pt;
  end;
var
  beglist,endlist,p,code:pt;
procedure dele(var r:pt; w:integer);
procedure refreshlist(list:tstringgrid);
function createlist(list:tstringgrid):boolean;
implementation
{procedure createsp(n:integer);
begin
  New(q);
  q.Next:=p;
  p:=q;
  p.Info:=n;
end;}
procedure dele(var r:pt; w:integer);
var
  z:pt;
begin
if r<>nil then
  if r.info=w then
  begin
    z:=r;
    r:=z.next;
    dispose(z);
  end
  else
    dele(r.next,w);
end;
procedure refreshlist(list:tstringgrid);
var
  i:integer;
  g:pt;
begin
  g:=beglist;
  i:=0;
  while g<>Nil do
  begin
    list.cells[i,0]:=inttostr(g^.Info);
    g:=g^.Next;
    i:=i+1;
  end;
  list.ColCount:=i;
  g:=nil;
  dispose(g);
end;
function createlist(list:tstringgrid):boolean;
var
  i,k:integer;
begin
  BegList:=nil;
  result:=true;
  with list do
  begin
    for i:=0 to colcount-1 do
    begin
      if (cells[i,0]<>'')and result then
      begin
        k:=strtoint(cells[i,0]);
        if BegList=nil then
        begin
          New(p);
          p^.Info:=k;
          p.Next:=nil;
          BegList:=p;
          EndList:=p
        end
        else
        begin
          New(p);
          p^.Info:=k;
          p.Next:=nil;
          EndList.Next:=p;
          EndList:=p;
        end;
      end
      else
      begin
        result:=false;
        break
      end
    end;
  end;
end;
end.

заранее спасибо

[Arigato]

Вы бы для начала воспользовались бы тегом code и оформили бы код по человечески. В таком виде даже читать его нет желания.

P.S. О, уже оформлен

Сообщение от kroatoani

Задача:
Описать рекурсивную процедуру

Это такую задачу задал преподаватель?

Советую Вам почитать основы работы с указателями и динамической памятью. Далее разбирайте код по шагам.

[kroatoani]

вот задача: Описать рекурсивную процедуру
procedure dele(var r:link; w:integer);
удаляющую из списка r первое вхождение с информационным полем w.
thnx for the answer

Ах ещё где мне найти'' основы работы с указателями и динамической памятью''?

[Arigato]

Сообщение от kroatoani

основы работы с указателями и динамической памятью

Любой учебник или справочник по Паскалю подойдет. Этот вопрос должен быть рассмотрен.

[GunSmoker]

Начните с мат-части, что-ли.

[vedro-compota]

Работа с указателями хорошо описана в учебнике Фленова....там вообще всё хорошо ))