В текстовом файле записаны вещественные числа в форме с фиксированной точкой. Преобразовать файл, представив каждое число в форме с плавающей точкой, сохранив две цифры после точки в мантиссе.В паскале через процедуры

Предыдущий
вопрос Следующий
вопрос

program ConvertFixedToPointFloating;
var
inputFile, outputFile: text;
number: real;
procedure ConvertFixedToPointFloating(inputFileName, outputFileName: string);
var
inputFile, outputFile: text;
number: real;
begin
assign(inputFile, inputFileName);
reset(inputFile);
assign(outputFile, outputFileName);
rewrite(outputFile);
while not eof(inputFile) do
begin
readln(inputFile, number);
writeln(outputFile, format('%0.2f', [number]));
end;
close(inputFile);
close(outputFile);
end;
begin
ConvertFixedToPointFloating('input.txt', 'output.txt');
end.