ИНФОРМАТИКА !!! ПОМОГИТЕ!!!!!!
составить программу в паскале, в которой с клавиатуры вводятся 2 текстовых выражения, вычисляется и печатается длина каждого из них. В первом выражении все буквы "а" заменяются на "о", Во втором выражении все буквы "К" заменяются на ""л

var s1,s2:string; l1,l2,i:integer;beginwriteln('1 строка:');readln(s1);writeln('2 строка:');readln(s2);l1:=length(s1);l2:=length(s2);writeln('Длина 1-ой строки = ',l1);writeln('Длина 2-ой строки = ',l2);for i:=1 to l1 do if (s1[i]='А')or(s1[i]='а') then s1[i]:='о';for i:=1 to l2 do if (s2[i]='К')or(s2[i]='к') then s2[i]:='л';writeln('Изменённые строки:');writeln(s1);writeln(s2);end.Пример:1 строка:АБВГДабвгд2 строка:Ку-ка-ре-куДлина 1-ой строки = 10Длина 2-ой строки = 11Изменённые строки:оБВГДобвгдлу-ла-ре-лу