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

[KolDun]

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

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

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

[BlackShadow]

Если без излишеств, то вариант предложенный Олегом выглядит примерно так:

Код

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
    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.

Или что-то похожее...