На паскаль 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.

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