Комментарий готовой программы

program please;
    uses
        crt;
    const
        ugli:set of char=['╖','╕','╗','╝',
                          '╜','╛','┐','└',
                          '╚','╔','╙','╘',
                          '╒','╓','┘','┌'];
    type
        PElementSpisok=^TElementSpisok;
        TElementSpisok=record
        value         :byte;
        next          :PelementSpisok;
    end;
function AddElement(head:PElementSpisok;value:byte):PElementSpisok;
    var
        curr:PElementSpisok;
    begin
        new(curr);
        curr^.value:=value;
        curr^.next:=head;
        AddElement:=curr;
    end;
procedure PrintSpisok(head:PElementSpisok);
    var
        curr:PElementSpisok;
    begin
        curr:=head;
        while curr<>nil do
            begin
                write(curr^.value:4,' - ',chr(curr^.value));
                curr:=curr^.next;
            end;
        writeln;
    end;
function DeleteSpisok(head:PElementSpisok):PElementSpisok;
    var
        curr:PElementSpisok;
    begin
        while head<>nil do
            begin
                curr:=head;
                head:=head^.next;
                dispose(curr);
            end;
        DeleteSpisok:=nil;
    end;
function CreateSpisokAllSymbols(head:PElementSpisok):PElementSpisok;
    var
        result:PElementSpisok;
        i     :byte;
    begin
        result:=nil;
        for i:=176 to 223 do
            result:=AddElement(result,i);
            CreateSpisokAllSymbols:=result;
    end;
function CreateSpisokUglov(head:PElementSpisok):PElementSpisok;
    var
        result,curr:PElementSpisok;
    begin
        curr:=head;
        result:=nil;
        while curr<>nil do
            begin
                if chr(curr^.value) in ugli then
                    result:=AddElement(result,curr^.value);
                    curr:=curr^.next;
            end;
        CreateSpisokUglov:=result;
    end;
    var
        SpisokAllSymbols,
        SpisokUglov:PElementSpisok;
begin
    SpisokAllSymbols:=CreateSpisokAllSymbols(SpisokAllSymbols);
    SpisokUglov:=CreateSpisokUglov(SpisokAllSymbols);
    clrscr;
    writeln('Spisok vseh simvolov psevdographiki: ');
    PrintSpisok(SpisokAllSymbols);
    writeln;
    writeln('Spisok uglov: ');
    PrintSpisok(SpisokUglov);
    SpisokAllSymbols:=DeleteSpisok(SpisokAllSymbols);
    SpisokUglov:=DeleteSpisok(SpisokUglov);
    readln
end.

ugli:set of char=['╖','╕','╗','╝',
                          '╜','╛','┐','└',
                          '╚','╔','╙','╘',
                          '╒','╓','┘','┌'];