1)procedure Insert(source: string; var s: string; index: integer); Вставляет подстроку source в строку s с позиции indexprocedure Delete(var s: string; index, count: integer); Удаляет из строки s count символов с позиции index2)var s:string; i,n,code:integer;beginwrite('Введите длинное число:');readln(s);for i:=1 to length(s) do begin val(s[i],n,code); if code=0 then writeln(n); end;end.Пример:Введите длинное число:34568102853456810285Если не требуется выполнять арифметических действий с цифрами, то можно так:var s:string; i:integer;beginwrite('Введите длинное число:');readln(s);for i:=1 to length(s) do writeln(s[i]);end.