Помогите решить задачу с строками! Опции

[KolDun]

Дан текстовый файл. Какой буквой чаще всего начинаются слава данного текста.Ответ должен быть записан в другом текстовом файле.

Ну с файлами я справлю тока прошу помочь с:
Какой буквой чаще всего начинаются слава данного текста.

Помогите пожалуйста сильно парюсь.

[KolDun]

uses crt;
Var
f0,f : text;
St,S : String;
i    : Byte;
m    : Array[1..30] of Word;
function IntToStr(j: Longint): String;
var
Sa: string[11];
begin
Str(j, Sa);
IntToStr := Sa;
end;
Begin
If ParamCount<1 then halt else Assign(f0,'in.txt');
Assign(f,'in2.txt');
Reset(f0);
s:=''; For i:=1 to 30 do m[i]:=0;i:=1;
While Not EOF(f0) do
Begin
Readln(f,St);
While Length(St)>0 do
  If St[1]=' ' then Delete(St,1,1)
    else
    Begin
      If Pos(UpCase(St[1]),S)=0 then
      Begin
        S:=S+UpCase(St[1]);
        Inc(m[Length(S)]);
      End
        else Inc(m[Pos(UpCase(St[1]),S)]);
      While (St[i]<>' ') and (i<Length(St)) do Inc(i);
      Delete(St,1,i);
      i:=1;
    End;
End;
Close(f0);
ReWrite(f);
For i:=1 to Length(s) do Writeln(f,s[1]+' = '+IntToStr(m[i]));
Close(f);
End.

Програму я записал так.

В файле in.txt записанно:
Hwllow My wordld wholw things

По товим словам программа в файл In2.txt должна записать букву w.

Но этого не происходит


Вышесказанными словами я не хочу обижать тебя и твой талант програмирование. и в предпоследнем топе я не имел ввиду что программа плохая так как она не работает у меня. Я сразу дописал что я что-то не так делаю, просто я програмирую не так уж долга и всех функций не знаю, и проект по Паскалю у меня большой это одно задание из 10 и на над ним я бился 2 дня прежде чем написать сюда.

Я не хочу сор и оскарблением, и не говорю что код полхой, просто у меня что-то не получается...