Текстовый файл - Pascal

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

Дан текстовый файл,содержащий фамилию,пол,стипендию студента.Вывести на экран количество девочек.Вывести фамилии и стипендии студентов увеличенные на 15%

Решение задачи: «Текстовый файл»

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

  Assign(f,'file.txt');
  Reset(f);
  while not Eof(f) do begin
    ReadLn(f,name); ReadLn(f,sex); ReadLn(f,Salary);
    WriteLn(Salary*1.15:8:2,' ',name);
    if sex in ['F','f','Д','д','Ж','ж'] then Inc(n);
  end;
  Close(f);
  WriteLn('Количество девочек: ',n);

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

Открывается файл 'file.txt' с помощью функции Assign(f, 'file.txt').
Файл считывается с помощью цикла while not Eof(f) do begin.
Каждая строка файла считывается с помощью функции ReadLn(f, name), где name — переменная, в которую считывается имя.
Затем считывается вторая строка с помощью функции ReadLn(f, sex), где sex — переменная, в которую считывается пол.
Далее считывается третья строка с помощью функции ReadLn(f, Salary), где Salary — переменная, в которую считывается зарплата.
Зарплата умножается на 1.15 с помощью функции Salary*1.15:8:2 и выводится на экран с помощью функции WriteLn().
Если пол 'F', 'f', 'Д', 'д', 'Ж', 'ж', то переменная n увеличивается на 1 с помощью функции Inc(n).
Код повторяется до тех пор, пока не будет достигнута последняя строка файла.
Файл закрывается с помощью функции Close(f).
На экран выводится количество девочек с помощью функции WriteLn('Количество девочек: ', n).