1.С клавиатуры вводится слово,распечатать все его буквы через пробел.(после последней буквы пробела быть не должно).
2.Написать программу,которая удаляет первое слово из строки введенной с клавиатуры и вместо него вставляет заданное.

1)vara:string;i,n:integer;begin         readln(a);         n:=length(a);             for i:=1 to n do                   write(' ',a[i]);end.2)vara,b:string;i,n,d:integer;begin     Writeln('введите строку');   readln(a);     n:=length(a);      d:=pos(' ',a);       Delete(a, 1,d-1);       writeln('введите слово для замены');   readln(b);     Insert(b, a,1);      writeln;      writeln(a);end.