Задача на функцию. Паскаль.

[WaK]

Помогите!
В главной программе вводятся 10 символов, а функция выбирает из них только А или О и выводит на экран.

[Stilet]

var s:string[10];
begin
 readln(s);
 if pos('A',s)<>0 then write('A');
 if pos('O',s)<>0 then write('O');
 readln;
end.

[Serge_Bliznykov]

не, думаю, что ожидается что-то вроде:

var s:string[10];
  i : integer;
begin
 WriteLn('Введите строку: ');
 ReadLn(s);
 Write('Результат: ');
 for i:=1 to Length(s) do
   if s[i] in ['А','О'] then Write(s[i]);
 WriteLn;
 Readln
end.

[Stilet]

не, думаю, что ожидается что-то вроде

Не думаю, что тот, кто задание такое давал вообще чем-то думал