помогите пожалуйста срочно
сделать программу в паскале

//Pascal ABC.NET Версия 2.2 Сборка 790var s,s1,s2:string;begin;while s<>'.' dobegin;readln(s);s1:=s1+s;end;s2:=chr(39); //chr(39)='if (pos('O',s1)<>0) and (pos(s2,s1)<>0) and (pos('k',s1)<>0) then writeln('Yes') else writeln('No');end.