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

[KolDun]

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

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

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

[KolDun]

Const
Separators=[' ',',','.','!','?',':',';'];
Var
Count:Array['a'..'z'] Of Integer;
c:Char;
Max:Integer;
MaxC:Char;
f:File Of Char;
Begin
For c:='a' To 'z' Do
Count[c]:=0;
Assign(f,'In.Txt');
Reset(f);
While Not Eof(f) Do
Begin
While Not Eof(f) Do
    Begin
      Read(f,c);
      If Not (c In Separators) Then
      Break;
    End;
    If Not (c In Separators) Then
      Inc(Count[c]);
    While Not Eof(f) Do Выкидывает ERROR1: Invalid DOS function code.
    Begin
      Read(f,c);
      If c In Separators Then
      Break
    End
End;
Close(f);
Max:=Count['a'];
MaxC:='a';
For c:='a' To 'z' Do
    If (Count[c] > Max) Then
    Begin
    Max:=Count[c];
    MaxC:=c
    End;
Assign(f,'Out.Txt');
ReWrite(f);
Write(f,MaxC);
Close(f)
End.

Код предоставленный Apal вообще нечего не делает =( или мне так кажется =(