числа с фиксированной и плавающей точкой Опции

[18192123]

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

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

[Archon]

Я это так представляю:
00544.115650 -> 5.44E2
12024.120000 -> 1.20E4
00000.100000 -> 1.00E-1
00000.000015 -> 1.50E-5

[18192123]

Я это так представляю:
00544.115650 -> 5.44E2
12024.120000 -> 1.20E4
00000.100000 -> 1.00E-1
00000.000015 -> 1.50E-5

а как это можно осуществить?

[Malice]

а как это можно осуществить?

Вон, что вышло:

Function format (x:string):string; 
var e:integer;
z,s:string;
begin
if x[1]='-' then begin delete (x,1,1); z:='-'; end else z:='';
while x[1]='0' do delete (x,1,1);
e:=pos('.',x)-1;
if e=0 then
while x[2]='0' do begin dec (e); delete (x,2,1); end;
delete (x,e+1,1);
dec (e); insert ('.',x,2);
delete (x,5,255);
while length(x)<4 do x:=x+'0';
str (e,s);
format:=z+x+'E'+s;
end;

Проверка:

writeln (format('00544.115650'));