Работа с типизироваными файлами

[Form_13]

Программа делится на две части,запись в файл и чтение из файла. Если организовать чтение из файла, она работает, хоть и по нулевым значениям. Если записать в файл массив, то он выдаёт ошибку: "Ошибка времени выполнения." Помогите пожалуйста.

Program n14;

 Type svodka = record 
  number:integer;
    date:record 
     year:integer;
     month:integer;
     day:integer;
         end;
  temperature:real;
  humidity:real;
  pressure:real;
                end;
  
  Var
   massiv:array [1..20] of svodka;
   i,n,k,l,n1,n2,n3,m1,m2,m3:integer;
   Srt:real;
   t:char;
   
   MyFile:file of svodka;
  
  Begin
  
  assign(MyFile,'dat.form');
  Writeln('Если нужно перезаписать файл,то нажмите D, а если нужно выполнить задание,то E');
  read(t);
  
  If (t='D') or (t='d') then
  begin
  rewrite(MyFile);
  Write('Введите количество записей ');
  readln(n);
  
  For i:=1 to n do
  begin
  
  With massiv[i] do
   begin
    number:=i;
    
    Repeat
    write('Введите год ');
    readln(date.year);
    Until (date.year<2011) and (date.year>0);
    
    Repeat
    write('Введите месяц ');
    readln(date.month);
    Until (date.month<=12) and (date.month>=1);
    
    Repeat
    write('Введите день ');
    readln(date.day);
    Until (date.day<=31) and (date.day>=1);
    
    Repeat
    write('Введите температуру по Цельсию ');
    readln(temperature);
    Until (temperature<100) and (temperature>-273.15);
    
    Repeat
    write('Введите влажность ');
    readln(humidity);
    Until (humidity<100) and (humidity>0);
    
    Repeat
    write('Введите давление ');
    readln(pressure);
    Until (pressure<800) and (pressure>700);
   end;
   write(MyFile,massiv[i]);
   end;
   
   close(MyFile);
   
   end
    else
     begin
     reset(MyFile);
     i:=-1;
   While not EoF(MyFile) do
    begin
     i:=i+1;
     seek(MyFile,i);
     read(MyFile,massiv[i+1]);
    end;
    n:=i;
    
   write('Введите номер месяца, среднюю температуру которого надо найти ');
   readln(k);
      
   For i:=1 to n do
    with massiv[i] do
     begin
      If (date.month=k) then
       begin
        Srt:=srt+temperature;
        l:=l+1;
       end;
      end;
      
   Srt:=srt/l;
   Writeln('Средняя температура ',k,'-ого месяца равна ',srt:6:3);
   
   Write('Введите начало периода, который будем выводить ');
   readln(m1,m2,m3);
   Write('Введите конец периода, который будем выводить ');
   readln(n1,n2,n3);
   
   For i:=1 to n do
   with massiv[i] do
    begin 
     if (date.year>m3) and (date.year<n3) then writeln(number,' ',date.day,':',date.month,':',date.year,' ',temperature,' ',humidity,' ',pressure);
     
     if (date.year=m3) then 
      if (date.month>m2) then writeln(number,' ',date.day,':',date.month,':',date.year,' ',temperature,' ',humidity,' ',pressure)
                         else if (date.month=m2) then 
                               if (date.day>=m1) then writeln(number,' ',date.day,':',date.month,':',date.year,' ',temperature,' ',humidity,' ',pressure);
                               
     if (date.year=n3) then 
      if (date.month<n2) then writeln(number,' ',date.day,':',date.month,':',date.year,' ',temperature,' ',humidity,' ',pressure)
                         else if (date.month=n2) then 
                               if (date.day<=n1) then writeln(number,' ',date.day,':',date.month,':',date.year,' ',temperature,' ',humidity,' ',pressure);
     end;
      
   
   
   
  end;
  End.

[Serge_Bliznykov]

1) выложенный код мне пришлось переформатировать, он в TurboPascal не компилировался - ошибка слишком длинная строка.

2) в предложенном Вами коде есть ошибка при чтении файла.
Вы назначаете количество записей n:=i; на самом деле i у Вас считается от нуля, поэтому количество записей (в данном случае) должно быть n:=i+1;

3) код чтения из типизированного файла крайне замороченный! Зачем так сложно?!!
Зачем каждый раз делать seek - когда указатель при чтении и так переходит на следующую запись.
выбирайте любой из вариантов:

    n := FileSize(MyFile);
    for i:=1 to n do
      read(MyFile, massiv[n]);

или (мне этот второй вариантон чуть меньше нравится, но зато он ближе к вашему первоначальному варианту)

    n := 0;
    while not EoF(MyFile) do
    begin
      inc(n);
      read(MyFile, massiv[n]);
    end;

4) вывод у Вас корявенький.. но его я не смотрел...

5) никаких "ошибок времени выполнения" не наблюдал... Что Вы делаете, чтобы их получить - даже не догадываюсь..

[Form_13]

Большое спасибо! Вы очень помогли!