паскаль абц

входные данные

входная строка содержит символы латинского алфавита, как строчные, так и заглавные.


выходные данные

программа должна вывести в первой строке получившуюся в результате обработки символьную строку, а во второй – количество выполненных замен.


var

s: string;

i, k,l: integer;

begin

readln(s);

l: =length(s);

k: =0;

for i: =1 to l do

case s[i] of

'a': begin s[i]: ='b'; inc(k); end;

'a': begin s[i]: ='b'; inc(k); end;

'b': begin s[i]: ='a'; inc(k); end;

'b': begin s[i]: ='a'; inc(k); end;

end;

s. println;

k. print

end.


выдает ошибку по времени, как можно сократить?