Составьте программу, выясняющую, есть ли в слове Х хотя бы одна из букв "о" или "а"

var
   S: string;
   i: integer;
   res: boolean;
begin
   res := false;
   writeln('Введите слово');
   readln(s);
   for i:= 1 to length(s) do
      if (s[i] = 'а') or (s[i]='о') then
         res := true;
   if res then
      writeln('В вашем слове есть хотя бы одна буква "о" или "а"')
   else
      writeln('В вашем слове нет хотя бы одной буквы "о" или "а"');
 
end.

var
   x,y: string;
   i,j: integer;
   c: integer;
   res: boolean;
begin
   res := false;
   writeln('Введите слово X ');
   readln(x);
   writeln('Введите слово Y ');
   readln(y);
   c:=0;
   for i:= 1 to length(x) do
      for j:= 1 to length(y) do
         if (x[i] = y[j]) then
            c := c +1;
   writeln('Кол-во букв слова X, исп. в слове Y: ', c);
 
end.

program task1;
var x:string; i:integer;
begin
writeln('Введите слово');
readln(x);
i:=pos('о',x)+pos('а',x);
if i>0 then writeln('В слове есть хотя бы одна из букв о или а') else
writeln('В слове нет букв а и о');
readln();
end.

program task2;
var x,y:string; i,j,k:integer;
begin
writeln('Введите слово X');
readln(x);
writeln('Введите слово Y');
readln(y);
for i:=1 to length(x) do
 for j:=length(x) downto i+1 do
  if x[j]=x[i] then delete(x,j,1);
for i:=1 to length(y) do
 for j:=length(y) downto i+1 do
  if y[j]=y[i] then delete(y,j,1);  
for i:=1 to length(y) do
 if pos(y[i],x)<>0 then inc(k);
writeln('Количество символов в слове Y, используемых в слове X = ',k); 
end.

program task3;
var x,s:string; i:integer; m : Array['а'..'я'] of integer; h:char;
begin
writeln('Введите слово X');
readln(x);
for i:=1 to length(x) do inc(m[x[i]]);
for h:='а' to 'я' do
 if m[h]=3 then s:=s+','+h;
delete(s,1,1); 
writeln('Символы, которые встречаются 3 раза:',s);
end.