Некорректное чтение из типизированного файла - Free Pascal

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

дан файл 'dat.txt' в нем записаны числа 15,16,17,18.

var f:file of integer;
a:integer;
begin
assign(f,'dat.txt');
reset(f);
filemode:=2;
read(f,a);
writeln(a);
close(f);
end.

должно было бы вывести одно из чисел, но выводит, например 13617 все что угодно кроме того что нужно. Что нужно исправить помогите

Решение задачи: «Некорректное чтение из типизированного файла»

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

var 
  f:file of integer;
  a:integer;
begin
  assign(f,'mydata.dat');
  rewrite(f);
  a := 15;
  write(f,a);
  close(f);
  WriteLn('File "mydata.dat" was created!')
end.

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

Объявляются две переменные: файл f типа file of integer и целое число a.
Устанавливается имя файла для записи в файл f - 'mydata.dat'.
Файл f открывается в режиме перезаписи с помощью функции rewrite(f).
Переменной a присваивается значение 15.
В файл f записывается значение переменной a с помощью функции write(f,a).
Файл f закрывается с помощью функции close(f).
Выводится сообщение о создании файла 'mydata.dat' с помощью функции WriteLn().