Задача на Стек: прокомментировать код

Program stack_16; 
type 
pComp= ^Comp; 
Comp=record 
Data:integer; 
pNext: pComp; 
end; 
var pTop,pAux: pComp; 
f:Text; 
work,a:integer; 
 
procedure menshe (var a:integer); 
begin 
pAux:=pTop; 
while pAux <>nil do 
begin 
if pAux^.Data < a then 
write(pAux^.Data + ' '); 
pAux := pAux^.pNext; 
end; 
writeln; 
end; 
 
procedure bolshe (var a:integer); 
begin 
pAux:=pTop; 
while pAux <>nil do 
begin 
if pAux^.Data >= a then 
write(pAux^.Data + ' '); 
pAux := pAux^.pNext; 
end; 
writeln; 
end; 
 
begin 
pTop:=nil; 
assign(f, 'input.txt'); 
reset(f); 
while not eof(f) do 
begin 
read(f, work); 
new(pAux); 
pAux^.Data:=work; 
pAux^.pNext:=pTop; 
pTop:=pAux; 
end; 
write('a='); 
read(a); 
 
menshe(a); 
bolshe(a); 
 
end.

begin
  /// заданное число
  var a := ReadLnInteger('a =');
  /// открываем фал на чтение
  var f : Text; Reset(f, 'input.txt');
  /// заводим стеки
  var less := New Stack<integer>; // менее
  var over := New Stack<integer>; // более
  var n : Integer;
  /// читаем числа из файла
  while Not EOF(f) do
    begin
      Read(f, n);
      if n < a then
        less.Push(n) /// пихаем в „менее“
      else
        over.Push(n); /// пихаем в „более“
    end;
  /// выводим из „менее“
  while less.Count > 0 do
    begin
      n := less.Pop;
      Print(n);
    end;
  WriteLn;
  /// выводим из „более“
  while over.Count > 0 do
    begin
      n := over.Pop;
      Print(n);
    end;
  WriteLn;
end.

Program ocher; 
type 
pComp=^Comp; 
Comp=record 
Data:integer; 
pNext:pComp; 
end; 
var pTop,pAux,pMin,pMax: pComp; 
f:Text; 
work,max,min:integer; 
first:boolean; 
 
begin 
pTop:=nil; 
assign(f, 'fail.txt'); 
reset(f); 
while not eof(f) do 
begin 
read(f, work); 
new(pAux); 
pAux^.Data:=work; 
pAux^.pNext:=pTop; 
pTop:=pAux; 
end; 
 
min := 10000; 
max := -10000; 
pMin := nil; 
pMax := nil; 
first := false; 
pAux:=pTop; 
while pAux <>nil do 
begin 
if pAux^.Data < min then 
begin 
min := pAux^.Data; 
pMin := pAux; 
first := true; 
end; 
if pAux^.Data > max then 
begin 
max := pAux^.Data; 
pMax := pAux; 
first := false; 
end; 
pAux := pAux^.pNext; 
end; 
 
if not first then 
begin 
pAux := pMin^.pNext; 
while pAux <> pMax do 
begin 
write(pAux^.Data + ' '); 
pAux := pAux^.pNext; 
end; 
end else begin 
pAux := pMax^.pNext; 
while pAux <> pMin do 
begin 
write(pAux^.Data + ' '); 
pAux := pAux^.pNext; 
end; 
end; 
 
end.

program zad4;
uses crt;
type
sl = ^zap;
zap = record
ch: integer;
next: sl;
end;
var
first1, first2, spi1, spi2: sl;
procedure vvod(var u: sl);
var
x: sl;
digit: integer;
begin
writeln('Введите список');
u := nil;
writeln('Введите элементы списка. Конец ввода 0');
readln(digit);
if digit <> 0 then
begin
new(x);
x^.next := nil;
x^.ch := digit;
u := x;
end;
while true do
begin
readln(digit);
if (digit = 0) then break;
new(x^.next);
x := x^.next;
x^.next := nil;
x^.ch := digit;
end;
writeln;
end;
function ravno(list1, list2: sl): boolean;
begin
Result:= true;
while (list1 <> nil) or (list2 <> nil) do
begin
if (list1^.ch <> list2^.ch) then
begin
Result := false;
break;
end;
list1 := list1^.next;
list2 := list2^.next;
end;
if (list1 = nil) and (list2 = nil) then Result := true else Result := false;
end;
function hot2(list: sl): boolean;
var
sov: sl;
schet: integer;
begin
result:=true;
while(list <> nil) do
begin
sov := list^.next;
while(sov <> nil) do
begin
if sov^.ch = list^.ch then
begin
Result := false;
break;
end;
sov := sov^.next;
end;
if Result = false then break;
list := list^.next;
end;
end;
procedure vizhn(u: sl);
begin
while u <> nil do
begin
writeln(u^.ch);
u := u^.next;
end;
end;
procedure conets(var u:sl);
var
first:sl;
begin
clrscr;
first:=u;
while (true) do
begin
first:= first^.next;
Writeln(first^.ch);
if (first^.next = nil) then break;
end;
first^.next:=u;
u:=u^.next;
first:=first^.next;
first^.next:=nil;
vizhn(u);
end;
var
i: integer;
begin
vvod(first1);
vvod(first2);
writeln('1-сравнение списков');
writeln('2-поиск двух одиннаковых');
writeln('3-перенос первого элемента');
writeln('введите пункт меню');
readln(i);
case i of
1:if ravno(first1,first2) then writeln('списки одиннаковые') else writeln('списки не одиннаковы');
2:if hot2(first1) then writeln('В списке нет одиннаковых элементов') else writeln('В списке есть одиннаковые элементы');
3:conets(first1);
 
end;
end.