Как изменить количество знаков после запятой в паскале НО НЕ ПРИ ВЫВОДЕ.

запись числа с помощью E не подойдет?
К примеру :
1E-2

var r: real;
s: string;

begin
r:=1 + 1/3;
str(r, s);

writeln(s);
writeln(copy(s, 1, 4));
end.

// Вывод

1.33333333333333E+000
1.3