Помогите решить в Паскале. 60 ббНапечатать по одному символу текста, непосредственно

Var
  s:string;
  i,n,k:integer;
begin
  Writeln('Введите текст: '); Readln(s);
  n:=Length(s); k:=0;
  for i:=1 to n-2 do
    if s[i] in ['О','о'] then
      if s[i+1] in ['Й','й'] then
        begin Write(s[i+2]); Inc(k) end;
  if k=0 then Writeln('"ой" в тексте не встречается')
end.

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.