помогите решить задания очень срочно с помощью паскаля
в заданном слове подсчитать количество сочетаний "ое", а если их нет то к слову приписать это же слово.

program prog;uses crt;var s: string;    i,k: integer;    beginclrscr;write('Введите  S = ');readln(s);for i:=1 to (length(s)-1) doif s[i]+ s[i+1]= 'ое' then k:=k+1;if k>0 thenwriteln('Количество сочетаний "ое" k = ',k)else beginwriteln('Cочетаний нет');writeln(s+s);end;end.