Обьясните принцип работы программы

Uses crt;
Var sl:array[1..100] of string;
    a:array[1..100] of integer;
    s:array[1..100] of char;
    i,n,y,p,j:integer;
    str,o:string;
    bool:boolean;
begin clrscr;
     write('Vvedite kol-vo simvolov n: ');
     readln(n);
     for i:=2 to n+1 do
      begin
       write('s[',i-1,']=');
       readln(s[i]);
       str:=str+s[i];
      end;
     str:=' '+str+' ';
     for i:=1 to n+2 do
      if str[i]=' ' then begin y:=y+1; a[y]:=i; end;
     for i:=1 to (y div 2)+1 do
      sl[i]:=copy(str,a[i]+1,a[i+1]-a[i]-1);
     y:=y-1; p:=y;
     for i:=y downto 1 do
      begin
       bool:=false;
       for j:=1 to length(sl[i]) do
        begin
         if not(((sl[i][j]>='a') and (sl[i][j]<='z'))
         or ((sl[i][j]>='A') and (sl[i][j]<='Z'))) then bool:=true;
        end;
       if bool=true then for j:=i to y-1 do
                          sl[j]:=sl[j+1];
       if bool=true then p:=p-1;
      end;
     writeln('Vse slova nachinaushciesya na "a":');
      for i:=1 to p do
       if sl[i][1]='a' then writeln(sl[i]);
     while not(keypressed) do begin end;
end.

Uses crt;
Var sl:array[1..100] of string;
    a:array[1..100] of integer;
    s:array[1..100] of char;
    i,n,y,p,j:integer;
    str,o:string;
    bool:boolean;
begin clrscr;
     writeln('Vvedite prrdlozhenie ');
     readln(str);
     str:=' '+str+' ';
     for i:=1 to length(str) do
      if str[i]=' ' then begin y:=y+1; a[y]:=i; end;
     for i:=1 to (y div 2)+1 do
      sl[i]:=copy(str,a[i]+1,a[i+1]-a[i]-1);
     y:=y-1; p:=y;
     for i:=y downto 1 do
      begin
       bool:=false;
       for j:=1 to length(sl[i]) do
        begin
         if not(((sl[i][j]>='a') and (sl[i][j]<='z'))
         or ((sl[i][j]>='A') and (sl[i][j]<='Z'))) then bool:=true;
        end;
       if bool=true then for j:=i to y-1 do
                          sl[j]:=sl[j+1];
       if bool=true then p:=p-1;
      end;
     writeln('Vse slova nachinaushciesya na "a":');
      for i:=1 to p do
       if sl[i][1]='a' then writeln(sl[i]);
     while not(keypressed) do begin end;
end.

Uses crt;
Var
    i:integer;
    str:string;
begin
clrscr;
     write('Vvedite prrdlozhenie ');
     readln(str);
     str:=' '+str+' ';
  for i:=1 to length (str) do
   if (str[i]=' ') and ((str[i+1]='a') or (str[i+1]='A')) then begin
   inc(i);
    while str[i]<>' ' do begin
    write(str[i]);  inc(i);
    end;
    writeln;
    end;
   readln;
end.