String Como Utilizar Comandos

program string1;
uses crt;
 var
   valor         :      string;
   preco         :      real;
   deucerto      :      integer;
begin
 write('Digite o Valor: ');
 readln(valor);

 val(valor, preco, deucerto);

 writeln(valor);
 writeln();
 writeln(preco);
 writeln();
 writeln(deucerto);

 if (deucerto <> 0 ) then
    begin
      if (pos(',', valor) = deucerto) then
         begin
           delete(valor, deucerto, 1);
           insert('.',valor, deucerto);
           val(valor,preco,deucerto);
         end
    end;

 writeln(valor);
 writeln();
 writeln(preco);
 writeln();
 writeln(deucerto);

readkey;
end.