Задача 1 Cоставить программу, которая позволяет ввести строку s, затем после…

На всякий случай сделал проверку и на русские, и на английские. Задача 1.uses crt; var i: integer; s: string; begini: =1; read (s); repeatif (s[i]='a') or (s[i]='а') thens: =copy (s,1,i)+'+copy (s,i+1,length (s); i: =i+1; until i=length (s)+1; writeln (s); end. Задача 2.uses crt; var i: integer; s: string; begini: =1; read (s); repeatif (s[i]='о') or (s[i]='o') thens: =copy (s,1,i-1)+'+copy (s,i+1,length (s); i: =i+1; until i=length (s)+1; writeln (s); end.