Расшифровка текста

uses crt;
var t:text;
s:array[1..1000] of string;
a: array[1..3000,1..2] of string;
i,n,p,l,w,c,m,kl,k:int64;
q,kk,f,kio:string;
j:boolean;
begin
    for var qwert:integer:=1 to 10000 do begin
writeln('Input filename:');
readln(kio);
clrscr;
while (not System.IO.File.Exists(kio+'.txt')) and (not (kio='')) do begin
clrscr;
writeln('File ',kio,'.txt does not exists. Please, Input correct filename:');
readln(kio);
end;
if kio='' then kio:='Input';
for var qwe:integer:=1 to 3000 do begin
a[qwe,2]:='0';
//if (qwe mod 10)=0 then Writeln(qwe);
end;
i:=1;
p:=0;
m:=0;
AssignFile(t,kio+'.txt');
Reset(t);
while not eof(t) do begin
readln(t,s[i]);
//writeln(s[i]);
Inc(i);
end;
CloseFile(t);
 
for n:=1 to i-1 do begin
w:=1;
while length(s[n])<>w do begin
q:=copy(s[n],w,1);
q:=q.ToLower;
if q='' then break;
m:=m+1;
j:=false;
        //if p=0 then begin p:=p+1; a[1,1]:=q; a[1,2]:=IntToStr(StrToInt(a[1,2])+1) end else begin
for l:=1 to p do begin
              //writeln('n - ',n,'   l - ',l,'   q - ',q);
if a[l,1]=q then begin j:=true; c:=l; break; end;
end;
if j=false then begin p:=p+1; a[p,1]:=q; a[p,2]:=IntToStr(StrToInt(a[p,2])+1) end else a[c,2]:=IntToStr(StrToInt(a[c,2])+1); 
        //end;
w:=w+1;
end;
end;
 
 
for var v:int64:= 1 to p-1 do begin
        for var jh:int64:= 1 to p-v do begin
            if StrToInt(a[jh,2]) < StrToInt(a[jh+1,2]) then begin
                kl := StrToInt(a[jh,2]);
                kk := a[jh,1];
                a[jh,2]:= a[jh+1,2];
                a[jh,1]:= a[jh+1,1];
                a[jh+1,2]:= IntToStr(kl);
                a[jh+1,1]:= kk;
            end;
            end;
            end;
 
 
var qqq:PABCSystem.Text;
AssignFile(qqq,'statics.txt');
Rewrite(qqq);
for var wer:integer:=1 to p do begin
writeln(a[wer,1],' - ',(StrToInt(a[wer,2])/m):2:3);
writeln(qqq,a[wer,1],' - ',(StrToInt(a[wer,2])/m):2:3);
end;
CloseFile(qqq);
readln(f);
clrscr;
AssignFile(qqq,'statics.txt');
Rewrite(qqq);
if f='full' then begin for var wer:integer:=1 to p do begin
writeln(a[wer,1],' - ',(StrToInt(a[wer,2])/m):2:6);
writeln(qqq,a[wer,1],' - ',(StrToInt(a[wer,2])/m):2:6);
end; 
CloseFile(qqq);
readln end;
    clrscr;
    end;
end.