Подсчитать количество символов в файле, подскажите,как исправить - Pascal ABC

Формулировка задачи:

Помогите исправить:данная вещь должна читать символы из файла(через запятую идут) и в выходной файл выводить их кол-во.....

var s:char;
i:integer;
f:text;
oup:text;
type mass= array['a'..'z'] of string;
Begin
assign(f,'c:\input.txt');
reset(f);
read(f,s);
while not eoln(f) do begin
if s in ['a'..'z'] then
i:=i+1;
end;
assign(oup,'c:\output.txt'); 
Rewrite(oup);
Write(oup,i);
close(oup);
end.

Решение задачи: «Подсчитать количество символов в файле, подскажите,как исправить»

Листинг программы

var s:char;
    i:integer;
    f,oup:text;
Begin
assign(f,'c:\input.txt');
reset(f);
i:=1;
while not eoln(f) do
 begin
  read(f,s);
  if s=',' then inc(i);
 end;
close(f);
assign(oup,'c:\output.txt');
Rewrite(oup);
Write(oup,i);
close(oup);
end.

Объяснение кода листинга программы

Переменная s объявлена как символ, а переменная i как целое число.
Переменная f и oup объявлены как текстовые переменные.
Строка assign(f,'c:\input.txt') устанавливает путь к файлу для чтения.
Функция reset(f) сбрасывает файл перед чтением.
Переменная i инициализируется единицей.
Вложенный цикл while not eoln(f) читает файл построчно, пока не достигнут конец файла.
Внутри цикла переменная s считывается из файла, а если она равна запятой, то переменная i увеличивается на единицу.
После окончания цикла файл закрывается с помощью функции close(f).
Строка assign(oup,'c:\output.txt') устанавливает путь к файлу для записи.
Функция Rewrite(oup) перезаписывает содержимое файла.
Переменная Write(oup,i) записывает значение переменной i в файл.
Файл закрывается с помощью функции close(oup).