Объясните 4 строки

program Project2;
 
 
var s,s1:string;
i,j,k,m,n,o:integer;
a:array of array of char;
tmp:array of char;
RowsCount:integer;
 
begin
  writeln('Введите строку:');
  readln(s);
  writeln('Введите кол-во строк с таблице:');
  readln(RowsCount);
  k:=0;
  for i:=1 to length(s) do // Считаем количество букв
  if s[i]=' ' then inc(k);
 
  setlength(a,RowsCount+1);
 
  if frac((length(s)-k) / RowsCount) <> 0.0
  then n:=(length(s)-k) div RowsCount +1
  else n:=(length(s)-k) div RowsCount;
 
  for i:=0 to length(a)-1 do setlength(a[i],n+1);
 
  for i:=1 to k do delete(s,pos(' ',s),1);
 
  m:=1;
 
  for j:=1 to n do
  for i:=1 to RowsCount do
  begin
    a[i,j]:=s[m];
    inc(m);
  end;
  
 //Задается рандомный порядок строк
  for i:=1 to RowsCount do a[i,0]:=inttostr(random(n)+1)[1]; 
  
                                                                
 //Задается рандомный порядок сстолбцов
  for i:=1 to n do a[0,i]:=inttostr(random(n)+1)[1];
 
 
  setlength(tmp,RowsCount+1);
  // Сортируем строки в порядке возрастания
  for j:=1 to n-1 do
  for i:=1 to n-j do
  if strtoint(a[0,i])>strtoint(a[0,i+1])
  then
    for o:=0 to RowsCount do
    begin
      tmp[o]:=a[o,i];
      a[o,i]:=a[o,i+1];
      a[o,i+1]:=tmp[o];
    end;
 
  setlength(tmp,n+1);
 
 //Сортируем столбцы в порядке возрастания
  for j:=1 to RowsCount-1 do
  for i:=1 to RowsCount-j do
    if strtoint(a[i,0])>strtoint(a[i+1,0])
    then
      for o:=0 to n do
        begin
          tmp[o]:=a[i,o];
          a[i,o]:=a[i+1,o];
          a[i+1,o]:=tmp[o];
        end;
 
  m:=1;
 
  setlength(s1,(n+1)*RowsCount);
 
 
  for j:=1 to RowsCount do
  begin
    for i:=1 to n do
    begin
      s1[m]:=a[j,i];
      inc(m);
    end;
 
  if m<length(s1) then
    begin
      s1[m]:=' ';
      inc(m);
    end;
 
end;
 
a:=nil;
tmp:=nil;
writeln(s1);
readln;
end.

/// Возвращает дробную часть числа x
function Frac(x: real): real;