Чтение записей из файла — Pascal(Паскаль)

program readrec;
var
     DayTemp:record      { дневная температура }
          day:integer;       { число }
          month:integer;     { месяц }
          temper:integer;    { температура }
          end;
     f:text;             { файл дневной температуры}
     mes:integer;        { номер месяца }
     n:integer;          { кол-во дней месяца, о которых есть данные в файле }
     summ:integer;       { сумма температур месяца }
     sredn:real;         { средняя температура }
begin
     n:=0;
     summ:=0;
     writeln('Вычисление среднемесячной температуры.');
     write('Месяц->');
     readln(mes);
     assign(f,'a:\temperat.txt');
     reset(f);
     while NOT EOF(f) do begin
          with DayTemp do
               readln(f,day,month,temper);
          if DayTemp.month = mes 
               then begin
                    n:=n+1;
                    summ:=summ+DayTemp.temper;
               end;
     end;
     close(f);
     if n<>0 then begin
          sredn:=summ/n;
          writeln('Средняя температура:',sredn:6:3);
     end
     else writeln('Данных о температуре за',mes:3,' месяц нет.');
end.