Удалить из файла все весенние даты - Pascal

Формулировка задачи:

Задачи на типизированные файлы: 6)дан файл f компоненты которого являются действительными числами найти сумму квадратов компонента файла f и заменить первую компоненту файла найденным значением 11) Дан файл f содержащий различные даты. Каждая дата - это число, месяц и год (По образцу: 1/09/08 - 1 сентября 2008 года). Удалить из файла все весенние даты. Из списка 15 задач решил все, кроме этих двух. Заранее спасибо!

Решение задачи: «Удалить из файла все весенние даты»

Листинг программы

var
  f: file of Real;
  e, s: Real;
begin
  Assign(f,'f.bin'); Reset(f); {s:=0;}
  while not EoF(f) do begin
    Read(e); s:=s+Sqr(e);
  end;
  Reset(f); Write(f,s);
  Close(f);
end.

Объяснение кода листинга программы

Объявляется переменная 'f' типа file of Real для работы с файлом
Объявляются переменные 'e' и 's' типа Real для хранения значений из файла и для вычисления суммы квадратов этих значений
Программа открывает файл 'f.bin' для чтения с помощью процедуры Assign и Reset
Программа начинает цикл, выполняющийся до конца файла, в котором извлекается следующее значение из файла с помощью процедуры Read и прибавляется квадрат этого значения к переменной 's'
После обработки файла, он снова открывается для записи
В файл записывается значение переменной 's', содержащее сумму квадратов всех значений
Файл закрывается с помощью процедуры Close