Написать комментарии к коду. Delphi.

[Дарюха]

(Срочно) Ребят,есть задача и написанная к ней прога,мне нужно сдавать,а я не знаю,что там где происходит...Если можно,напишите комменты к коду,пожалуйста..

От Стилета: Темы нужно называть так чтоб было понятно что нужно. (На будущее)

[Дарюха]

Условие:

Имеется двунаправленный список, содержащий информацию по документу «наряд на выполненную работу». Элементы списка определены следующим образом:
Во-первых, шифр наряда – INTEGER;
Во-вторых, номер цеха – STRING [2];
В-третьих, номер участка – STRING [2];
В-четвертых, кол-во изготовлено – INTEGER;
В-пятых, кол-во принято – INTEGER;
В-шестых, ссылка на предыдущий элемент списка;
В-седьмых, ссылка на следующий элемент списка.

Список упорядочен по возрастанию реквизита «шифр наряда».

Разработать для среды DELPHI модуль, обеспечивающий вставку нового элемента в упорядоченный список. Если в списке уже имеется реквизит «шифр наряда» с таким же значением, выдать сообщение об ошибке.

{$APPTYPE CONSOLE}
{$O-}

uses
  SysUtils;

type rec=^zap;
zap=record
iShifr, iIzg, iDone : integer;
sNomerCeh, sNomerUch : string[2];
next, pred : rec;
end;

var i,n,f : integer;
r : rec;
first : rec;

function paste(t : rec) : integer;
var q,r : rec;
begin
if first = NIL then
  begin
  first := t;
  first^.next := NIL;
  first^.pred := NIL;
  end else
    begin
    q := first;
    if (q.iShifr > t.iShifr) then
      begin
      first^.pred:= t;
      t^.next:= first;
      first := t;
      end else
        begin
        while((q <> NIL) and (q^.iShifr < t.iShifr)) do
          begin
          r := q;
          q := q^.next;
          end;
        if ((q<>NIL) and (q.iShifr = t.iShifr)) then
          begin
          paste := 0; //the same
          exit;
          end;
        if (q = NIL) then
          begin
          r^.next := t;
          t^.pred := r;
          t^.next := NIL;
          end else
            begin
            (q^.next)^.pred := t;
            t^.next := q^.next;
            q^.next := t;
            t^.pred := q;
            end;
        end;
    end;
paste := 1;
end;

procedure writeId();
var r : rec;
begin
r := first;
while r<>NIL do
  begin
  write(r^.iShifr); write(' -> ');
  r := r^.next;
  end;
write('NIL');
end;

begin

write('Vvedite kol-vo dobavlyaemih zapisei: ');
readln(n); 
first := NIL;
for i := 1 to n do
  begin
  new(r);
  writeln('Input:');
  write('1) Shifr naryada: ');
  readln(r^.iShifr);
  write('2) Nomer ceha[2]: ');
  readln(r^.sNomerCeh);
  write('3) Nomer uchastka[2]: ');
  readln(r^.sNomerUch);
  write('4) Izgotovlennoe kol-vo: ');
  readln(r^.iIzg);
  write('5) Prinyato: ');
  readln(r^.iDone);
  f := paste(r);       //if paste = 0 => the same
  if (f = 0) then writeln('THE SAME IN LIST!');
  readln;
  end;
writeId();
end.

Вставляя часть кода помещаем его в тег [СОDE][/CODЕ], # - в расширенном режиме. Модератор.