,плиз срочно: Написать функцию,которая осуществляет поиск буквы в заданной строке Функция возвращает истина если в строке есть хотябы одна эта

  • 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 Strokai = Symbol then Result:= true; {Если символ строки равен символу, который ищут, то присваиваем функции значение true}

    end;//Конец функции

    begin

    writeln(Введите строку, в которой нужно искать символ);

    readln(s);

    writeln(Введите символ, который нужно искать в строке);

    readln(a);

    writeln(Результат выполнения функции: , Search(a, s)); {Выводим значение функции}

    end.