Помогите, плиз… срочно: Написать функцию…

var a: char; //Символ, который надо найти s: string; //Строка в которой надо искатьfunction Search (Symbol: char; Stroka: string): boolean; {Функция логического типа с входными параметрами — символом и строкой} var i: integer; //Переменная для циклаbegin Result: =false; {Вначале присваиваем функции значение false, чтобы если в строке не будет найден символ, она вернула значение false} for i: =1 to length (Stroka) do //Проверяем все символы строки if Stroka[i]=Symbol then Result: =true; {Если символ строки равен символу, который ищут, то присваиваем функции значение true}end; //Конец функцииbegin writeln ('Введите строку, в которой нужно искать символ'); readln (s); writeln ('Введите символ, который нужно искать в строке'); readln (a); writeln ('Результат выполнения функции: ', Search (a, s); {Выводим значение функции}end.