Частотный анализ текста

procedure task2(var f,g:text);
var
x:array[0..255] of integer;
s:string;
i:integer;
begin 
for i:=0 to 255 do x[i]:=0;
while not (eof(f)) do begin
  readln(f,s);
  for i:=1 to length(s)-1 do begin
    if s[i] in [' ',#10] then inc(x[byte(s[i+1])]);
  end;
  for i:=0 to 255 do
    if x[i]>0 then begin
      write(g,char(i), ' ' ,x[i]);
      writeln(g);
    end;
 end;
 end;

var f:text;
    x:array[0..255] of integer;
    s:string;
    i:integer;
begin
assign(f,'input.txt');
reset(f);
for i:=0 to 255 do x[i]:=0;
while not (eof(f)) do
 begin
  readln(f,s);
  for i:=1 to length(s)-1 do
  if (s[i]<>' ')and((i=1)or(s[i-1]=' '))then inc(x[byte(s[i])]);
 end;
close(f);
assign(f,'output.txt');
rewrite(f);
for i:=0 to 255 do
if x[i]>0 then
writeln(f,char(i),' ',x[i]);
close(f);
writeln('Файл input.txt прочитан, статистика записана в файл output.txt')
end.

uses crt;
procedure task2(var f,g:text;fname,gname:string);
var x:array[0..255] of integer;
    s:string;
    i:integer;
begin
assign(f,fname);
reset(f);
for i:=0 to 255 do x[i]:=0;
while not (eof(f)) do
 begin
  readln(f,s);
  for i:=1 to length(s)-1 do
  if (s[i]<>' ')and((i=1)or(s[i-1]=' '))then inc(x[byte(s[i])]);
 end;
close(f);
assign(g,gname);
rewrite(g);
for i:=0 to 255 do
if x[i]>0 then
writeln(g,char(i),' ',x[i]);
close(g);
end;
var
f,g:text;
i:integer;
gname,fname:string;
begin
writeln('Введите имя исходного файла');
readln(fname);
if FileExists(fname) then
 begin
  writeln('Введите имя результирующего файла');
  readln(gname);
  task2(f,g,fname,gname);
  writeln('Смотрите результат в файле'); end
  else writeln('Файл с таким именем не найден!');
end.

 write(g,char(i), ' ' ,x[i]);