На паскаль 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.
где первым вводится слово, которое нужно вставить