Исправить с учетом регистра ошибки согласно правописанию (Turbo Pascal)

[INDIGO713]

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

TurboPascal

Исправить с учетом регистра ошибки согласно правописанию: после приставок от, без вместо и пишется ы.

Если надо, могу заплатить)

[newerow1989]

var s:string;

function sss(s:string):string;
const pr:array[1..4] of string=('от','без','От','Без');
var i:integer;
begin
   For i:=1 to 4 do
      If (Pos(pr[i],s)=1) and (s[i+Length(pr[i])]='и') then
         s[i+Length(pr[i])]:='ы';
   Result:=s;
end;

begin
   s:='отиграть';
   Writeln(sss(s));
   Readln;
end.

Сойдет?

[Stilet]

Сойдет?

Ты тогда уточняй, что эта функция работает с словом, а то ТС ща предложение туда закинет и будет удивляться "Ачёнеработает"