В текстовом файле хранятся результаты измерений температуры воздуха в течение недели: на каждой строке результат измерения температуры днем и через пробел – температуры ночью. Вычислить среднюю температуру воздуха в дневное время и среднюю температуру воздуха в ночное время по имеющимся данным. Дополнительный массив не использовать — Pascal(Паскаль)

uses crt;
var f:text;
    name:string;
    d,n:integer;
    sd,sn:real;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
sd:=0;
sn:=0;
while not eof(f) do
 begin
  read(f,d);
  sd:=sd+d;
  read(f,n);
  sn:=sn+n ;
 end;
close(f);
writeln('Средняя температура днем=',sd/7:0:1);
writeln('Средняя температура ночи=',sn/7:0:1);
readln
end.