Работа с файлом, Запись Опции

[-=АнЮтА=-]

Имеется типизированный файл вещественных чисел file of real
Открываю его на запись функцией rewrite(f);
и начинаю запись:
write (f,a:2:2);
Этим я хочу обрезать вещественное число до двух знаков, очевидно нельзя так записывать в файл, как тогда сделать,чтоб число вещественное, которое хранится в компьютере можно было сравнить с числом, введенным с клавиатуры.Через trunc все равно представляется в "машинном" виде. Подскажите, как можно сделать?

[klem4]

Ну записать число с нужной точностью в файл можно например так: (первое что в голову приходит)

  a := 3.14159;
  Str(a:2:2, s);
  Val(s, a, e);
  write(f, a);