Добавление записей в файл (данных о дневной температуре воздуха) — Pascal(Паскаль)

program aprec;
var
     DayTemp:record { дневная темперарура }
          day:integer;     { число }
          month:integer;   { месяц }
          temper:integer;  { температура }
     end;
     f:text;     { файл дневной температуры}
begin
     assign(f,'a:\temperat.txt');
     append(f);     { открываем файл для добавления записи }
     write('Введите в одной строке, разделяя пробелами');
     writeln(' число, номер месяца и температуру');
     write('->');
     with DayTemp do
          begin
               readln(day,month,temper);
               writeln(f,day,' ',month,' ',temper);
          end;
     close(f);
     writeln('Данные добавлены');
end.