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