Подсчитать количество символов в файле

      write('Строка = ');
      readln(s);
      writeln(f,s);
    End;
    mn:=[];
    Close(f);Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      For i:=1 to Length(s) do
       mn:=mn+[s[i]];
      k:=k+Length(s);
    End;
    Assign(g,'out.txt');Rewrite(g);
    For i:=0 to 255 do
     if chr(i) in mn then write(g,chr(i));
    Close(g);Reset(g);
    Close(f);Rewrite(f);
    readln(g,s);
    For i:=1 to Length(s) do
     st:=s[i]+st;
    writeln(f,st);
    Close(f);Close(g);
    For i:=1 to Length(s) do
     if UpCase(s[i]) in gl then inc(k1)
      else if UpCase(s[i]) in sg then inc(k2)
       else if UpCase(s[i]) in ['0'..'9'] then inc(k3);
    writeln('Гласных = ',k1);
    writeln('Согласных = ',k2);
    writeln('Цифр = ',k3);
    writeln('Результаты в файлах "out.txt" and "in.txt"')
End.

Const gl=['A','E','I','O','U' 'Y'];    
      sg=['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Z'];
Var f,g:text;
    i,k,k1,k2,k3:integer;
    mn:set of char;
    s,st:string;
Begin
    Assign(f,'in.txt');Rewrite(f);
    writeln('Заполнение файла №1 (окончание ввода " ")');
    While s<>' ' do
    Begin
      write('Строка = ');
      readln(s);
      if s<>' ' then writeln(f,s);
    End;
    mn:=[];
    Close(f);Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      For i:=1 to Length(s) do
       mn:=mn+[s[i]];
      k:=k+Length(s);
    End;
    Assign(g,'out.txt');Rewrite(g);
    For i:=0 to 255 do
     if chr(i) in mn then write(g,chr(i));
    Close(g);Reset(g);
    Close(f);Rewrite(f);
    readln(g,s);
    For i:=1 to Length(s) do
     st:=s[i]+st;
    writeln(f,st);
    Close(f);Close(g);
    For i:=1 to Length(s) do
     if UpCase(s[i]) in gl then inc(k1)
      else if UpCase(s[i]) in sg then inc(k2)
       else if UpCase(s[i]) in ['0'..'9'] then inc(k3);
    writeln('Гласных = ',k1);
    writeln('Согласных = ',k2);
    writeln('Цифр = ',k3);
    writeln('Результаты в файлах "out.txt" and "in.txt"')
End.