Объяснение для программ

[абвгд]

Имеются программы. Объясните пожалуйста код. Чем подробнее, тем лучше. Заранее благодарю
1) Найти самое длинное симметричное слово

PHP код:

program prog;
const
  N = 100;
type
  StringArray = array[1..N] of string;
  DelimSet = set of char;
 
function split(var dest: StringArray; const s: string; const delim: DelimSet): integer;
var
  n, i, len: integer;
begin
  n:= 0;
  i:= 1;
  len:= Length(s);
  while (i <= len) do begin
    if s[i] in delim then
      while (s[i] in delim) and (i <= len) do i:= i + 1
    else begin
      n:= n + 1;
      dest[n]:= '';
      while (not (s[i] in delim)) and (i <= len) do begin
        dest[n]:= dest[n] + s[i];
        i:= i + 1;
      end;
    end;
  end;
  split:= n;
end; 
function isSymmetric(s: string): boolean;
var
  m, n: integer;
begin
  m:= 1;
  n:= Length(s);
  while m < n do begin
    if s[m] <> s[n] then begin    
      isSymmetric:= false;
      exit;
    end;
    m:= m + 1;
    n:= n - 1;
  end;
  isSymmetric:= true;
end;

var
  line: string;
  words: StringArray;
  i: integer;
  imax: integer;
  count: integer;
begin
  Write('Input string: ');
  ReadLn(line);
 
  count:= split(words, line, [',', '.', '/', ';', ' ', ':', '!', '?']);
  imax:= -1; 
  for i:= 1 to count do begin
    if isSymmetric(words[i]) then begin
      imax:= i;
      break;
    end;
  end;
  if imax <> -1 then begin
    for i:= imax+1 to count do
      if isSymmetric(words[i]) and (Length(words[i]) > Length(words[imax])) then imax:= i;
    WriteLn('Longest: ', words[imax]);
  end
  else WriteLn('Not found.');
  WriteLn('Press any key to exit...');
  Readkey;
end. 


2)Опишите рекурсивную функцию sum без параметров для нахождения суммы элементов файла f

PHP код:

uses
  Crt;
const n=5;
type
  Reals = file of Real;

var
  f: Reals;   {File, v kotoryiy budut zapisyvatsya chisla}
  i: Integer; {Schetchik}
  x: Real;
  j: Real;

function sum: Real;
begin
  if not Eof(f) then begin
    Read(f, x);
    j := j + x;
    sum := sum;
  end;
  sum := j;
end;

begin

  Assign(f, 'C:\lab8_4');
  ReWrite(f);
  for i := 1 to n do
  begin
    WriteLn('Vvedite ', i, '-e chislo');
    Read(x);
    Write(f, x);
  end;
  Close(f);
  Reset(f);
  WriteLn('Summa vseh elementov ravna ', sum);
  Close(f);
  ReadKey;
end. 


3) Даны действительные числа c1,...,Cp, D1...Dg (C1<=C2<=..<=Cp, D1<=D2<=..<=Dg) Внести единую упорядоченность в C1...Cp, D1...Dg, получив F1,F2,...Fp+g, такие, что F1<=F2<=..<=Fp+g
Число сравнений не должно превосходить p+g

PHP код:

Const P = 4;
      Q = 5;
      R = P+Q;
Var I, J, K: Integer;
    C : Array [1..P] Of Real;
    D : Array [1..Q] Of Real;
    E : Array [1..R] Of Real;


Begin
     Randomize;
     C[1] := Random; For I := 2 To P Do C[I] := C[I-1]+Random;
     D[1] := Random; For J := 2 To Q Do D[J] := D[J-1]+Random;

     I := 1;
     J := 1;
     K := 1;

     While K <= R Do Begin
           If ( C[I] < D[J] ) Then Begin
              E[K] := C[I];
              Inc(I);
              Inc(K);
           End Else Begin
               E[K] := D[J];
               Inc(J);
               Inc(K);
           End;

           If I > P Then For I := J To Q Do Begin
              E[K] := D[J];
              Inc(K);
              Inc(J);
           End;

           If J > Q Then For J := I To P Do Begin
              E[K] := C[I];
              Inc(K);
              Inc(I);
           End;
     End;

     WriteLn('„**л 2 Ї®б«Ґ¤®ў*⥫м*®бвЁ: ');
     WriteLn('C[1], ..., C[P]');
     For I := 1 To P Do WriteLn(C[I]:3:3);
     WriteLn('D[1], ..., D[Q]');
     For J := 1 To Q Do WriteLn(D[J]:3:3);

     WriteLn;
     WriteLn('ђҐ§г«мвЁагой*п Ї®б«Ґ¤®ў*⥫м*®бвм:');
     WriteLn('E[1], ..., E[K]');
     For K := 1 To R Do WriteLn(E[K]:3:3);
End. 


+ ещё помогите решить программки:
4) Используя представление последовательности чисел в виде линейного списка, напишите программу сортировки этой последовательности при помощи алгоритма простого выбора
5)Используйте линейные списки для хранения последовательности чисел.
Опишите процедуру, которая удаляет:
а) из списка второй элемент, если такой есть
б) Из непустого списка последний элемент.
Вот есть код для буквы Б:

PHP код:

type list=^node;
node=record
info:integer;
next:list
end;
var s,l:list; x:integer; n,i:integer;
procedure del(var l:list);
var p,q:list;
begin
if l=nil then 
     else if l^.next=nil then
begin dispose (l);l:=nil end
else begin
p:=l; q:=p^.next; 
while q^.next<>nil do
begin p:=q; q:=q^next end;
dispose(q); p^.next:=nil
end;

procedure out_spisok(l:list);
 begin
while l<>nil do
begin 
    s:=l^.next;
    write (l^.info,'');
    l:=s;
end;
writeln;
end;
begin 
s:=nil;
writeln('введите кол-во элементов списка');
readln(n);
for i:=1 to n do
begin 
  new(l);
  l^.next:=s;
  readln(x);
l^.info:=x;
s:=l;
end;

writeln ('введенный список');
out_spisok(l);
del(l);
writeln('полученный список');
out_spisok(l);

while l<>nil do
begin 
s:=l^.next;
dispose(l);
l:=s;
end;
end. 


[ByAlex]

И вы думаете кто то будет так просто разбираться в этих кодах?