Нужно откоментировать каждую строчку в коде

program dvynapravlenniy_spisok;
 
uses crt,graphABC;
 
type nod = record
     name : string;
     model: string;
     ves : integer;
     data : string;
     end;
 
     Pnode =^node;
      node = record
      info : nod;
      next : Pnode;
      prev : pnode;
      end;
 
var m : nod;
    head, tail : Pnode;
    q, qq, p, st : Pnode;
    x, y, i, kol : integer;
    faill : array [1..100] of nod;
    kod : char;
    knopka : byte;
    
function pf(n : string):boolean;
begin
result := true;
if length(n)>30 then result:=false;
if result = false then
     begin
      writeln('Некоректный ввод !!!');
     end;
end;
 
//************************ Добавление в конец *****************
procedure Add ( var s:Pnode; v:nod );
 var ss : pnode;
 begin
  if s = nil then
   begin
    new(s);
    s^.prev:=nil;   // предыдущий элемент = 0
    s^.next:=nil;   // следующий элемент = 0
    s^.info:=v;
    tail:=s;
    head:=s;
   end
  else
   begin
    new(ss) ;
    ss^.prev:=tail;
    ss^.next:=nil;
    ss^.info:=v;
    tail^.next:=ss;
    tail:=ss;
   end;
end;
 
//****************** Удаление записей ******************
procedure Delete(d,t: string);
 var k : integer;
     q, s : Pnode;
 begin
 clrscr;
 for i:=1 to 20 do begin
 q:=head;       // указателю присваеваем голову
 if q = nil then
  begin
   writeln(' !!! Список пуст !!! ');
   exit;
  end;
  
  while (q<>nil) and ((q^.info.data[1] >= d[1]) and (q^.info.data[1] <= t[1]))  do
     begin
       q:=q^.next;
     end;
     
 if (q = head) and (q = tail) then
  begin
   head:=nil;
   tail:=nil;
   dispose(q);
  end
   else
  begin
   if q = head then
    begin
     head:=head^.next;
     head^.prev:=nil;
     dispose(q);
    end;
 
 if q = tail then
  begin
   tail:=tail^.prev;
   tail^.next:=nil;
   dispose(q);
  end;
  
 if (q <> head) and (q <> tail) and (q <> nil) then
  begin
   q^.prev^.next:=q^.next;
   q^.next^.prev:=q^.prev;
   dispose(q) ;
  end;
 end;
 writeln(' Удаление прошло успешно!!! :) ');
end; end;
 
//**************** ПОЛНОЕ УДАЛЕНИЕ ******************
procedure del_spisoc;
  var tmp: Pnode;
  begin
   if head = nil then
    begin
     writeln('Список пуст !!!');
     exit;
    end;
   while head<>nil do
    begin
     tmp:=head;
     head:=head^.next;
     Dispose(tmp);
     tmp:=nil;
     end;
 end;
 
//****************
procedure addbe;
var  pos, k : byte;
    q, p, pp, s, ss  : pnode;
    a:nod;
begin
 
writeln('Перед каким вставлять?');
readln(pos);
if (pos>=1) and (Head<>nil) and (Tail<>nil) then
  begin
   k:=1;
   q:=Head;
    while (q<>nil) and (k<>pos) do
     begin
      q:=q^.next;
      inc(k);
     end;
end;
 
with a do
   begin
Writeln('Введите производитель');
repeat
readln(name);
until pf(name);
Writeln('Введите модель');
repeat
readln(model);
until pf(model);
Writeln('Введите частоту');
readln(data);
Writeln('Введите порядковый номер');
readln(ves);
end;
 
 if q = head then
 begin
 ss:=q;
 new(p) ;
 ss^.prev:=p;
 p^.next:=ss;
 p^.prev:=nil;
 p^.info:=a;
 ss:=p
 end
 else
 begin
 s:=q^.prev;
 ss:=q;
 new(pp) ;
 s^.next:=pp;
 pp^.next:=ss;
 pp^.prev:=s;
 ss^.prev:=pp;
 pp^.info:=a;
 end;
end;
//************************* Запись списка в массив ******************
procedure spis_v_massiv;
 var i : byte;
     q : Pnode;
 begin
  i:=1;
  q:=head;
      if  q = nil then
     begin
      writeln(' Список пуст. ');
      exit;
    end;
   while q<>nil do
    begin
     faill[i]:= q^.info;
     inc(i);
     q:= q^.next;
    end;
   kol:=i-1;
end;
//************************* Запись массива в список *****************
procedure massiv_v_spis;
 var i : byte;
 begin
  head:=nil;
   for i:=1 to kol do Add( head, faill[i]);
 end;
//**************** Файл размер сорт ****************************
procedure sort_shel;
var i,j,r,n : integer;
    c : nod;
    sort : byte;
    s : string;
begin
n:=kol;
       r:= n div 2;
       while r > 0 do
        begin
         for i:=r+1 to n do
          begin
           j:= i-r;
              while j > 0 do
               if faill[j].data > faill[j+r].data then
              begin
                   c:= faill[j];
               faill[j]:=faill[j+r];
                     faill[j+r]:=c;
                     j:=j-r
             end
          else j:=0   { останов проверки}
         end;
        r:= r div 2
       end;
end;
procedure sort_shel2;
var i,j,r,n : integer;
    c : nod;
    sort : byte;
    s : string;
begin
n:=kol;
       r:= n div 2;
       while r > 0 do
        begin
         for i:=r+1 to n do
          begin
           j:= i-r;
              while j > 0 do
               if faill[j].data < faill[j+r].data then
              begin
                   c:= faill[j];
               faill[j]:=faill[j+r];
                     faill[j+r]:=c;
                     j:=j-r
             end
          else j:=0   { останов проверки}
         end;
        r:= r div 2
       end;
 
end;
 
procedure sort_shell;
 begin
 spis_v_massiv;
 sort_shel;
 massiv_v_spis;
end;
procedure sort_shell2;
 begin
 spis_v_massiv;
 sort_shel2;
 massiv_v_spis;
end;
 
procedure dob;
var a : nod;
 
    c,k: char;
begin
i:=0;
repeat
 i:=i+1;
  with a do
    begin
Writeln('Введите ',i,'-го производителя');
repeat
readln(name);
until pf(name);
Writeln('Введите ',i,' модель');
repeat
readln(model);
until pf(model);
Writeln('Введите ',i,' частоту');
readln(data);
Writeln('Введите ',i,' порядковый номер');
readln(ves);
end;
writeln('Введите - Пробел и Enter для завершение, любой символ для продолжения: ');
read(k);
Add(head, a);
until k = ' ';
end;
//******************** ВЫВОД БАЗЫ НА ЭКРАН СНАЧАЛА ***************************
procedure VIVOD;
  var i,k : byte;
        c :char;
      label label1;
      label label2;
  begin
   label2:
   clrscr;
   writeln('| Производитеть|    Mодель| Тактовая частота|  Порядковый номер|');
   st:=head;
    if st = nil then
     begin
      writeln(' Список пуст. ');
      exit;
    end;
  label1:
  k:=0;
 
   while st<>nil do
    begin
     with st^.info do
      begin
       write('|',name:14,'|');
       write(model   :10,'|');
       write(data    :17,'|');
       write(ves     :17,'|');
       writeln;
       k:=k+1;
      end;
       st:= st^.next;
      end;
      end;
      
procedure menu;
begin
  writeln('Выбирите нужное действие ');
  writeln('Для сортировки по возрастанию нажмите 1');
  writeln('Для сортировки по убыванию нажмите 2');
  writeln('Для добавить в любое место нажмите 3');
  writeln('Для добавить нажмите 4');
  writeln('Для выхода нажмите 9');
  read(knopka);
   case knopka of
                   1  : begin sort_shell;  clrscr;   vivod ;menu; end;
                   2  : begin sort_shell2; clrscr;   vivod ;menu; end;
                   3  : begin clrscr; addbe; clrscr;   vivod ;menu; end;
                   4 : begin clrscr; dob;  clrscr;   vivod ;menu; end;
                   9  : closewindow;
              end;
end;
 
procedure del_element;
  var d ,t: string;
  begin
  writeln('Введите диарозон от ');
  readln(d);
  writeln('до ');
  readln(t);
  Delete(d,t);
  vivod;
  menu;
end;
  
Begin
dob;
vivod;
del_element;
End.

Program ochered;
 
Uses CRT,GraphABC;
 
Type
Exo=^O;
O=Record
 Data:string;
 Data2:string;
 Data3:integer;
 Data4:string;
 Next:Exo;
end;
 
Var
BeginO,EndO,u:Exo;
digit1,digit2,digit4:string;
digit3:integer;
ch:byte;
s:string;
k, err:integer;
 
procedure print;
begin
 
 Writeln('_______________________________________________________________');
 writeln('| Производитеть|    Mодель| Тактовая частота| Порядковый номер|');
 u:=BeginO;
 if u=Nil then begin
                Writeln('Очередь пуста');
                Writeln('_______________________________________________________________');
                Writeln('1-создание очереди;   2-вывод на экран;   3-добавление элемента;');
                Writeln('4-поиск по значению;  5-поиск по индексу; 6-количество элементов;');
                Writeln('7-удаление из начала; 8-Завершение программы');
                exit;
               end;
 While u<>Nil do begin
                  write('|',u^.Data:14,'|');
                  write(u^.Data2:10,'|');
                  write(u^.Data3:17,'|');
                  writeln(u^.Data4:17,'|');
                  u:=u^.Next;
                 end;
 Writeln('_______________________________________________________________');
 Writeln('1-создание очереди;   2-вывод на экран;   3-добавление элемента;');
 Writeln('4-поиск по значению;  5-поиск по индексу; 6-количество элементов;');
 Writeln('7-удаление из начала; 8-Завершение программы');
end;
 
procedure create;
var
n,i:byte;
s:string;
k, err:integer;
begin
repeat
                   Write('Количество "n" элементов очереди: ');
                   readln(s);
                   val(s,k,err);
                   until (err=0);
                   n:=k;
 
 For i:=1 to n do begin
                   New(u);
                   Writeln('Введите ',i,' производитель');
                   Readln(digit1);
                   Writeln('Добавляемый ',i,' модель: ');
                   Readln(digit2);
                   repeat
                   Writeln('Добавляемый частота: ');
                   readln(s);
                   val(s,k,err);
                   until (err=0);
                   digit3:=k;
                   Writeln('Введите ',i,' порядковый номер');
                   Readln(digit4);
                   u^.Data:=digit1;
                   u^.Data2:=digit2;
                   u^.Data3:=digit3;
                   u^.Data4:=digit4;
                   u^.Next:=Nil;
                   if BeginO=Nil then BeginO:=u
                                 else EndO^.Next:=u;
                   EndO:=u;
                  end;
 ClrScr;
 Writeln('Очередь сформирована');
 
 print;
end;
 
 
procedure add;
var
s:string;
k, err:integer;
begin
 
                   Writeln('Введите производитель');
                   Readln(digit1);
                   Writeln('Добавляемый модель: ');
                   Readln(digit2);
                   repeat
                   Writeln('Добавляемый частота: ');
                   readln(s);
                   val(s,k,err);
                   until (err=0);
                   digit3:=k;
                   Writeln('Введите порядковый номер');
                   Readln(digit4);
 u:=BeginO;
 if u=Nil then begin
                New(u);
                u^.Data:=digit1;
                   u^.Data2:=digit2;
                   u^.Data3:=digit3;
                   u^.Data4:=digit4;
                u^.Next:=Nil;
                BeginO:=u;
                EndO:=u;
                 ClrScr;
                Writeln('Элемент добавлен');
                print;
                exit;
               end;
 While u<>Nil do begin
                  if u^.Data='0'then begin
                                     u^.Data:=digit1;
                                      ClrScr;
                                     Writeln('Элемент добавлен');
                                     print;
                                     exit;
                                    end
                               else u:=u^.Next;
                 end;
 New(u);
 u^.Data:=digit1;
 u^.Data2:=digit2;
 u^.Data3:=digit3;
 u^.Data4:=digit4;
 u^.Next:=Nil;
 EndO^.Next:=u;
 EndO:=u;
  ClrScr;
 Writeln('Элемент добавлен');
 print;
end;
 
procedure poisk_po_znach;
var
p:Boolean;
i:byte;
begin
 u:=BeginO;
 if u=Nil then begin
                ClrScr;
                Writeln('Очередь пуста!');
                exit;
               end;
 Write('Искомая частота: ');
 Readln(digit3);
 p:=False;
 i:=1;
 Write('Индекс(ы) искомого элемента: ');
 While u<>Nil do begin
                  if u^.Data3=digit3 then begin
                                         write(i,';');
                                         p:=True;
                                        end;
                  u:=u^.Next;
                  i:=i+1;
                 end;
 If p=False then Writeln('Не найдено');
 Writeln;
 print;
end;
 
function count:Integer;
var
i:byte;
begin
 u:=BeginO;
 If u=Nil then begin
                Writeln('Очередь пуста');
                count:=0;
                exit;
               end;
 i:=1;
 While u^.Next<>Nil do begin
                        u:=u^.Next;
                        i:=i+1;
                       end;
 count:=i;
end;
 
procedure poisk_po_index;
var
i,k:byte;
begin
 u:=BeginO;
 if u=Nil then begin
               ClrScr;
                Writeln('Очередь пуста');
                print;
                exit;
               end;
               ClrScr;
 Write('Индекс искомого элемента: ');
 Readln(k);
 if count<k then begin
 ClrScr;
                  Writeln('Элемента с таким индексом не существует');
                  print;
                  exit;
                 end;
 u:=BeginO;
 i:=1;
 While u<>Nil do begin
                  if i=k then begin writeln('Искомый элемент: ');
                                    writeln('| Производитеть|    Mодель| Тактовая частота| Порядковый номер|');
                                    write('|',u^.Data:14,'|');
                                    write(u^.Data2:10,'|');
                                    write(u^.Data3:17,'|');
                                    writeln(u^.Data4:17,'|');
                              end;
                  u:=u^.Next;
                  i:=i+1;
                 end;
 Writeln;
 print;
end;
 
procedure del;
begin
 u:=BeginO;
 if u=Nil then
 begin
      ClrScr;
      Writeln('Очередь пуста');
      print;
      exit;
 end;
 BeginO:=BeginO^.Next;  // перемещяем указатель
 Dispose(u);
 Writeln('Элемент удалён');
 print;
end;
 
 
Begin
 ClrScr;
 ch:=2;
 Repeat
 ClrScr;
 Case ch of
  1:create;
  2:print;
  3:add;
  4:poisk_po_znach;
  5:poisk_po_index;
  6:begin Writeln('Количество элементов очереди: ',count); print;  end;
  7:del;
 end;
 repeat
                   readln(s);
                   val(s,k,err);
                   until (err=0);
                   ch:=k;
 
 until ch>7;
End.

                uses crt;
type steck=^din2;
        din2=record;
        info:char;
        next:steck;
     end;
var
   s_n,st,sp:steck;
   nom,i,n,k:integer;
   n1:char;
   strok:string;
   flag:boolean;
 
   procedure sozd;
   begin
       writeln ('Создание стека');
       writeln('Введите кол-во элементов стека: ');
       readln(k);
       new(st);
       s_n:=st;
          for i:=1 to k do
                begin
                st^.info:='0';
                        if i<>k then
                        begin
                        sp:=st;
                        new (st);
                        sp^.next:=st;
                        end
                        else
                       st^.next:=nil;
                end;
   end;
   
 
   
 
   
   procedure view;
       begin
           i:=1;
           writeln('________________________');
           st:=s_n;
               while st<>nil do
                   begin
                       writeln(i,')   ',st^.info);
                       st:=st^.next;
                       inc (i);
                   end;
           writeln('________________________');
       end;
 
 procedure delete;
      var sp2:steck;
      begin
         writeln ('Процедура удаления');
         st:=s_n;
         while st<>nil do
         begin
         sp2:=sp;
         sp:=st;
         st:=st^.next;
         end;
            sp2^.next:=nil;
          end;
 
procedure chistka;
var del:steck;
begin
st:=s_n;
while st<>nil do
begin
del:=st;
st:=st^.next;
dispose (del);
end;
end;
 
 
procedure dobavl;
begin
       writeln('Кол-во добавл. элементов: ');
       readln(k);
       st:=s_n;
       while st<>nil do
       begin
       sp:=st;
       st:=st^.next;
       end;
       new (st);
       sp^.next:=st;
         for i:=1 to k do
                begin
                writeln ('Вводите значение добавляемого элемента: ');
                readln (st^.info);
                    if i<>k then
                        begin
                        sp:=st;
                        new (st);
                        sp^.next:=st;
                        end
                        else
                       st^.next:=nil;
                end;
   end;
   
   
   
   
   
   procedure dobavl1(kolstr:integer);
   var stknev,spis:steck;
begin
 
 
       st:=s_n;
       spis:=s_n;
 
         for i:=1 to kolstr do
                begin
 
 
                    if (i<>kolstr) and (spis<>nil) then
                        begin
                        if  strok[i]<>' ' then
                            begin st^.info:=strok[i];
                             if (st^.next=nil)
                                  then  spis:=st^.next
                             else st:=st^.next;
                             end;end
 
 
 
                    else  if (spis=nil) and (i<=kolstr) then
                        
                        if   strok[i]<>' ' then
                        begin
                         new(stknev);
                        stknev^.info:=strok[i];
                        stknev^.next:= NIL;
                        st^.next:=stknev;
 
                        st:=st^.next;
                        stknev:=nil;
                        end
 
                        end
 
 
   end;
 
procedure poisk;
var q:boolean;
begin
writeln ('Поиск');
writeln ('Введите значение');
  readln (n1);
  st:=s_n;
     i:=1;
writeln ('------------------------');
      while st<>nil do
              begin
                   if (st^.info=n1) then
                   begin
                   q:=true;
                   writeln (i);
                   end;
                   st:=st^.next;
                   inc (i);
                   end;
    if q<>true then writeln ('Данный элемент не найден');
 
         end;
 
 
procedure poisk2;
var q:boolean;
begin
writeln ('Поиск');
writeln ('Введите индекс');
  readln (n);
  st:=s_n;
     i:=1;
writeln ('------------------------');
      while (st<>nil) and (n<>i) do
      begin
      st:=st^.next;
      inc (i);
      end;
    if st=nil then writeln ('Данный элемент не найден')
    else writeln (st^.info);
 
         end;
 
         procedure razmer;
         begin
         writeln('________________________');
         st:=s_n;
         i:=0;
         while st<>nil do
         begin
         inc (i);
         st:=st^.next;
         end;
         writeln ('Размер стека: ',i);
         writeln('________________________');
         end;
         
          function razmer1:integer;
         begin
         st:=s_n;
         i:=0;
         while st<>nil do
         begin
         inc (i);
         st:=st^.next;
         end;
         razmer1:=i;
         end;
         
         
procedure polindrom;
var
    k,kol1,kol2:integer;
    phed1,pend1: steck;
    stroka1:string[255];
    stroka2:string[255];
begin
phed1:=s_n;
pend1:=s_n;
 
 writeln('стек будет заменен значениями строки а после очищен и создан новый');
 writeln('ввод строки');
 readln(strok);
 k:=1;
 kol1:=ord(strok[0]);
 dobavl1(kol1);
 stroka1:='                                                                   ';
 stroka2:='                                                                   ';
 kol1:=razmer1;
 kol2:=kol1 div 2;
 i:=0;
  if (kol1 mod 2>0) then    while (k<=kol1) do
                                 begin
            if (k=kol2+1) then begin stroka1[k]:=phed1^.info;
                         stroka2[k]:=phed1^.info;
                         phed1:=phed1^.next;
                             end
                             
           else  if (k<=kol2) then begin stroka1[k]:=phed1^.info;
                  phed1:=phed1^.next; end
                else begin stroka2[kol2-i]:=phed1^.info;
                  phed1:=phed1^.next; i:=i+1; end;
                  
                 k:=k+1;
                      end
 
 
  
  
  
  
  else
 
   
 while (k<=kol1) do
 begin
 if (k<=kol2) then begin stroka1[k]:=phed1^.info;
 phed1:=phed1^.next; end
 else begin stroka2[kol2-i]:=phed1^.info;
 phed1:=phed1^.next; i:=i+1; end;
 k:=k+1;
 end;
 
 if stroka1=stroka2 then writeln('полиндром')
 else  writeln('не полиндром');
 
 chistka;
 sozd;
 
 
 end;
 
 
 
 
 
 
 
 
begin
sozd;
while nom<>8 do
begin
writeln ('Главное меню');
writeln ('1-добавление элементов');
writeln ('2-поиск элемента по значению');
writeln ('3-поиск элемента по индексу');
writeln ('4-размер стека');
writeln ('5-удаление элемента');
writeln ('6-вывод стека');
writeln ('7-ввод полиндрома');
writeln ('8-выход');
readln (nom);
case nom of
1: dobavl;
 
2: poisk;
3: poisk2;
4: razmer;
5: delete;
6: view;
7: polindrom;
end;
end;
chistka;
end.