Exercício 8!

8)Determinar um valor real em string...

Function numero(var x = real):string;

Var

P:Byte;   S:String

Begin

STR(x:0:2;5);

P:=10(‘,’5);

S[P]:=(,);

Numero: = s

End.