Сортировка текстового файла, и частота повторения каждой буквы в тексте

const m=10000; //maximalus zodziu skaicius tekste
const d=26;
var Tekstas:Text;
    zodziai: array [1..m] of string;
    i:integer;
    FailoPavadinimas:string;
    ok:boolean;
    
{Procedura nuskaitanti faila}
 
Procedure Nuskaitymas(FailoPavadinimas:String);
    begin
        Assign(Tekstas, FailoPavadinimas+'.txt');
        Reset(Tekstas);
    end;
 
{procedura surasanti tekste esancius zodzius i masyva}
 
Procedure Surasymas;
    var zodis:string;
begin
    i:=1;
    repeat
        Readln(Tekstas,zodis);
            repeat
                zodziai[i]:=Copy(zodis,1,pos(' ',zodis)-1);
                delete(zodis,1,pos(' ',zodis));
                inc(i);
            until pos(' ',zodis)=0;
        zodziai[i]:=zodis;
    until EoF(Tekstas);
end;
 
{procedura rusiojanti zodzius masyve abeceles tvarka}
 
procedure Rusiavimas;
var n:integer;
    zodis1, zodis2:string;
    z:boolean;
begin
    repeat
        z:=false;
        for n:=1 to i do
            begin
                zodis1:=zodziai[n];
                zodis2:=zodziai[n+1];
                if ord(zodis1[1])>ord(zodis2[1]) then
                    begin
                        zodziai[n]:=zodis2;
                        zodziai[n+1]:=zodis1;
                        z:=true;
                    end else
                        if (ord(zodis1[2])>ord(zodis2[2])) and (zodis1[1]=zodis2[1]) then
                            begin
                                zodziai[n]:=zodis2;
                                zodziai[n+1]:=zodis1;
                                z:=true;
                        end else
                            if (ord(zodis1[3])>ord(zodis2[3])) and (zodis1[1]=zodis2[1]) and (zodis1[2]=zodis2[2]) then
                                begin
                                    zodziai[n]:=zodis2;
                                    zodziai[n+1]:=zodis1;
                                    z:=true;
                                end;
                            end;
        until z = false;
end;
 
{rusiuoto teksto irasymas i kita faila}
 
Procedure Spausdinimas;
var n:integer;
begin
    FailoPavadinimas := 'Surusiuotas tekstas';
    Assign(Tekstas, Failopavadinimas+'.txt');
    rewrite(Tekstas);
        for n:=1 to i do
            writeln(Tekstas,zodziai[n]);
    close(tekstas);
end;
 
 
{procedura apskaiciuojanti kiekvienos raides pasikartojimo dazni visame tekste}
procedure frequency;
var Tekstas:text;
    s,ab_u, ab:string;
    freq:array[1..d] of longint;
    k,i:longint;
    ncom:longint;
  begin
  ab_u:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  ab  :='abcdefghijklmnopqrstuvwxyz';
  for i:=1 to d do
    freq[i]:=0;
  ncom:=0;
  assign(tekstas,failopavadinimas+'.txt');
  reset(tekstas);
  while not eof(tekstas) do
    begin
    readln(tekstas,s);
    for i:=1 to length(s) do
      begin
      k:=Pos(s[i],ab_u);
      if (k=0) then k:=Pos(s[i],ab);
      if (k>0) then
        begin
        inc(ncom);
        inc(freq[pos(s[i],ab)]);
        end;
      end
    end;
  close(tekstas);
  writeln(i:2,' ',ab[i],':',freq[i]/ncom:7:5,' ',freq[i]:8);
  writeln(' Isviso: ',ncom,' Raidziu');
  end;
{visu proceduru vykdymas eiles tvarka}
 
begin
    repeat
        Writeln('nurodykite failo pavadinima: ');
        readln(Failopavadinimas);
        ok:=IOResult=0
    until ok=true;
Nuskaitymas(FailoPavadinimas);
Surasymas;
rusiavimas;
Spausdinimas;
frequency;
readln;
end.