1) используя справочник записать значение процедур delete и insert.

2) написать программу позволяющею разделить на отдельные цифры число любой длины

1)

procedure Insert (source: string; var s: string; index: integer) ;

Вставляет подстроку source в строку s с позиции index procedure Delete (var s: string; index, count: integer) ;

Удаляет из строки s count символов с позиции index

2)

var s:string; i, n, code:integer;

begin

write ('Введите длинное число:') ;

readln (s) ;

for i:=1 to length (s) do

begin

val (s[i], n, code) ;

if code=0 then writeln (n) ;

end;

end.

Пример:

Введите длинное число: 3456810285

3

4

5

6

8

1

0

2

8

5

Если не требуется выполнять арифметических действий с цифрами, то можно так:

var s:string; i:integer;

begin

write ('Введите длинное число:') ;

readln (s) ;

for i:=1 to length (s) do writeln (s[i]) ;

end.