На паскаль ABC

1). составте программу которая удаляет первое слово текста

2) составте программу которая вставляет одно слово в текст после первого пробела

1) var

s, s1:string;

c:char;

begin

repeat begin read (c) ; s1:=s1+c; end until c=' ';

read (s) ;

write (s) ;

end.

2) var

s, s1, s2:string;

c:char;

begin

read (s) ;

while (c' ') do begin read (c) ; s1:=s1+c; end;

read (s2) ;

write (s1, ' ', s, ' ', s2) ; end.

где первым вводится слово, которое нужно вставить