Задачи на обработку файлов. Паскаль!

[НужнаПомощь]

здравствуйте! не могли бы вы посмотреть где ошибка... и по возможности исправить. задание--Даны файл, содержащий текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.

uses crt;
var F: text;
st: string;
s: Char;
count: integer;
i: integer;

function LowerCase(s: string): string;
var
i: integer;
begin
result := s;
for i := 1 to length(result) do
if (result[i] in ['A'..'Z', 'À'..'ß']) then
result[i] := chr(ord(result[i]) + 32);
end;

function LoCase(ch: char): char;
begin
if (ch in ['A'..'Z', 'À'..'ß']) then
result := chr(ord(ch) + 32)
else
result := ch;
end;

begin
ClrScr;
Write('Vvedite proverochuyu bukvu - ');
Read(s);
s:=LoCase(s);
Assign(F,'test.txt');
write(F);
Count:=0;
While not Eof(F) do
begin
Writeln(F,St);
St:=LowerCase(St);
if St[i]=s then Inc(count);
for i:=2 to Length(St)-1 do if St[i]=' ' then
begin
if St[i+1]=s then Inc(Count);
end;
end;
Write('Bukva',s);
Write(' v nachale slova vstrechaetsya ',count);
Write(' raz');
end.

[ViktorR]

1. Вроде есть функции: UpCase(), Pos(), Delete().
2. Приняли символ, сделали в верхний регистр.
Цикл по файлу
3. Читаем файл до конца, по строкам
4. Символы строки переводим в верхний регистр
Цикл по строке
5. Ищем вхождение символа в строке: позиция символа - m.
6. Если m = 0, то Break (выход из цикла по строке), а иначе - символ в позиции m.
7. Проверяем символ строки в позиции m - 1. Должен быть пробел.
8. Если пробел, то подсчитываем.
9. Удаляем из строки символы с первой позиции до m.
10. Переходим к п.5. Конец цикла по строке.
11. Конец цикла по файлу.
12. Вывод результата.

После нахождения подходящего символа обязательно надо проверить, что это первый символ слова.

Как-то так, ...

[НужнаПомощь]

Не могли бы в в программе подправить?