Написать в Паскаль программку для решения следующей задачки. Вводится строчка, состоящая

Можно вводить строчку, содержащую пробелы и иные знаки. Функция добавляет нули только после цифр 1..9.

program digits_plus_0;
var s: string;

function ins(s:string):string;
var k, p, l, err: integer;
s1: string;
begin
s1:=s;
k:=0;
l:=length(s);
for i:integer:=1 to l do
begin
val(s[i], p, err);
if (err = 1) or (p = 0) then k:=k+1 //если знак не цифра (err=1) или ноль
else
begin
k:=k + 2;
insert(0, s1, k);
end
end;
s:= s1;
ins:= s
end;

Begin
writeln(Введите строчку, содержащую числа);
readln(s);
ins(s);
writeln (ins(s))
end.