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.