Anonymní profil henri – Programujte.com

Ahoj, mám za úkol vytvořit zdroják, kde se zadaný text srovná podle abecedy, rozdělí se mezery, spočítají se znaky, a sečte počet čísel. A tímto níže mé znalosti končí. Může někdo poradit???? Díky.   

  type index='a'..'z';
VAR
 suma, n, i, cislo: integer;
 a:array[ index ] of integer;
   TEXT:string;
  JJ,II:integer;
  znak,s:char;
begin
  writeln  ('    ','Zadej pozadovany text');
  writeln  (  '  ');
  textcolor(2);
  readln    (TEXT);
  writeln   (  '   ');
  For JJ:=1 to length(TEXT) do
    For II:=1to length (TEXT)-1 do
    begin
      (*serazeni textu*)
      IF TEXT [II]>TEXT[II+1]then
      begin
        znak:=TEXT[II];
        text[II]:=text[II+1];
        text[II+1]:=znak;
      end;
   end;
  textcolor(3);
  (*serazeni mezer*)
     For II:=1 to length(text) do
     IF (text[II]>=',  ,')
     then
     begin
       write('  ',text[II],'');
     end;
        readln;
        writeln('  ');
        (*pocet znaku*)
        begin
         clrscr;
        textcolor(14);
     writeln;
     for s:= 'a' to 'z' do a[s]:=0;
     while not eoln do
     begin
          read(s);
          if (s>='a')and(s<='z') then a[s]:=a[s]+1
     end;
        begin
     for s:='a' to 'z'  do
        write('pocet ':3,s,' je ',a[s],' ':4);
        end;
     writeln;
     readln;
        end;
         (*soucet cisel*)
        begin
      writeln('');
      textcolor(11);
    readln(n);
    if n > 0 then
    begin
        suma := 0;
        begin
            read(cislo);
            suma := suma + cislo;
        end;
        writeln('Soucet vsech cisel je: ', suma);
       read;
    end;
    end;
    readln;
   end.

Díky za nápad , radu.