ЕСтек оферфлов

function  InsertSort(pb: pp): pp;
  function insert(a: pp; pb: pp): pp;
  begin
    a^.nxt := nil;
    if pb = nil then insert := a
    else
      if a^.c < pb^.c then begin
        a^.nxt := pb; insert := a;
      end
      else begin
        pb^.nxt := insert(a, pb^.nxt);
        insert := pb;
      end;
  end;
 
begin
  if pb = nil then InsertSort := nil
  else  InsertSort := insert(pb,InsertSort(pb^.nxt));
end;