подскажите в чем ошибка, только если пожно более доступно

Question

вот собственно задание: Заданные 3 числа, привести код функции с формальными параметрами булевського типа, которая вернет true если все числа четные, и false - если нет

program Project2; 
 
{$APPTYPE CONSOLE} 
uses 
 SysUtils,windows; 
function srch(const s:string;const ch:char):boolean; 
var 
i:integer; 
begin 
for i:=1 to length(S) do 
if S=ch then srch:=true 
else srch:=false 
end; 
var 
S:string; 
ch:char; 
begin 
 SetconsoleCP(1251); 
 SetconsoleOutputCP(1251); 
writeln('ââåäèòå ÷èñëî');readln(S); 
writeln('ââåäèòå ÷èñëî');readln(ch); 
if srch(s,ch) then writeln('òðó') 
else writeln('íå òðó'); 
readln 
end.

Вероника Калашникова · Accepted Answer

А где у вас чтение этих трех чисел? 
Ну и как вы будете передавать строку в фукцию с формальным параметром булевского типа? Не, у меня есть фантазии по побитной передаче или там через хитрые разьименовывания указателей, но это явно не тот случай.