Помогите пожалуйста составить программу.…

Перваяvar s: string; i: integer; beginreadln (s); for i: =1 to length (s) doif s[i]='.' then Delete (s,i,1); writeln (s); readln; end. И втораяvar s: string; i: integer; beginreadln (s); for i: =1 to length (s) doif s[i]='о' then s[i]: ='и' else if s[i]='и' then s[i]: ='о'; writeln (s); readln; end.