[Страдалецъ]

Сразу 2 ошибки вижу, тип s подразумевается строка а у вас целое. Вы пишете, что надо менять а на б, а фактически гоняете цикл до сваливания по переполнению n

Код:

while Pos('а', s) > 0 do
  begin
  n:=n+1;
  s[Pos('a',s)]:='a';
 end;