Informatika (2 семестр) / 2 аттестация / 2-я задача (упражнение 9)

program fil2;
uses crt;
var f1:file of char;
symbol,symbol1,symbol2,symbol3,symbol4:char; {дан файл символьного типа }
s,p,k,t:integer; {целочисленные переменные}
begin
assign(f1,'G:\pr\prog\1.txt'); {отождествление файла и файловой переменной}
reset(f1); {открыть файл для чтения с начала}
symbol1:='р';
symbol2:='и'; {Указание искомого символа}
symbol3:='е';
symbol4:='ъ';
s:=0; {Начальное значение счетчика}
p:=0;
k:=0;
t:=0;
while not eof(f1) do {цикл пока конец файла не достигнут выполнять}
begin
read(f1,symbol); {прочтение символа из файла}
if symbol=symbol1 then s:=s+1; {Если прочтенный символ совпадает с искомым, то увеличить значение счетчика на единицу}
if symbol=symbol2 then p:=p+1;
if symbol=symbol3 then k:=k+1;
if symbol=symbol4 then t:=t+1;
end; {конец цикла}
close(f1); {Закрыть файл}
writeln; {Вывести на экран с новой строки сообщение о результатах работы}
writeln('Количество букв ',symbol1,'=',s);
writeln('Количество букв ',symbol2,'=',p);
writeln('Количество букв ',symbol3,'=',k);
writeln('Количество букв ',symbol4,'=',t);
end.