Помогите решить в Паскале. 60 бб Напечатать по одному символу текста, непосредственно следующему за каждым из буквосочетаний ‘ой’. Предусмотреть случай, когда в тексте нет таких буквосочетаний.

Program zzz;
var t: string; l: integer; i, x: byte;
begin
  writeln(введите текст);
  readln (t);
  l:=length(t);
  x:=0;
  For i:=1 to l-1 do begin
    if (t[i]=о) or (t[i]=О) then
      if (t[i+1]=й) or (t[i+1]=Й) then 
        begin writeln (символ: ,t[i+2]); x:=1 end;
  end;
  if x=0 then 
     writeln (буквосочетание ой не встречается);
end.