Преобразование числа в символьную строку и обратно (Паскаль)

Var s: string;

n, k, er: integer;

Begin

   write ('Введите строку: ');

   readln (s);

   val (s, n, er);

   n := n + n;

   writeln ('Число, увеличенное в два раза: ', n);

   writeln ('Код ошибки: ', er);

   str (n, s);

   writeln ('Число, переведённое в строку: ', s);

   k := 1;

   val ('43,48', k, er);

   writeln ('Строка, переведённая в число: ', k);

   writeln ('Позиция ошибки: ', er);

End.

Введите строку: 245.
Число, увеличенное в два раза: 490.
Позиция ошибки: 0.
Число, переведённое в строку: 490.
Строка, переведённая в число: 1.
Позиция ошибки: 3