Для керування вогнем далекобійної артилерійської установки використовується радіозв'язок. Але він відбувається в умовах, коли супротивник створює радіоперешкоди, тому для забезпечення надійності передачі повідомлення (а це ціле число від 0 до 1000000) шифрується наступним чином: кожна цифра передається, а потім відразу ж повторюється ще стільки разів, як її значення. Наприклад, цифра "3" передається чотири рази, "0" один раз і т.д. і замість повідомлення 103 передається 1103333.
Напишіть програму, яка б забезпечувала таке шифрування.

Написав код

program firemaneger2;

var 
    P, s: string;
    i, d, j : integer; 
    m: array [1..7] of integer;
begin
s:='';
readln(p);
for i:=1 to length(p) do
val(p[i], m[i], d);

for i:=1 to length(p) do 
begin
s:=concat(s, p[i]);
   for j:=1 to m[i] do 
   s:=concat(s, p[i]);
end;
writeln(s);

end.

В Pascal.ABC все працює чудово, а на Turbo Pascal мутить щось таке

вводиш - 4123
виводить - 44444123

В чому проблема???