На паскаль ABC1). Составте программу которая удаляет первое слово текста 2) составте…

1) vars, s1: string; c: char; beginrepeat begin read (c); s1: =s1+c; end until c='; read (s); write (s); end.2) vars, s1, s2: string; c: char; beginread (s); while (c<>') do begin read (c); s1: =s1+c; end; read (s2); write (s1, ', s, ', s2); end. Где первым вводится слово, которое нужно вставить