Ошибка в коде программы, которая определяет наличие заданной буквы в строке

function search(str:string; ch:char):integer;
var i,q:integer; 
begin
q:=0;
for i:=1 to length(str) do
if str[i]=ch then q:=q+1;
search:=q;
end;
var s:string;
b:char;
a:boolean;
begin
writeln('Введите строку');
readln(s);
writeln('Введите букву');
readln(b);
search(s,b);
if search>0 then a=true else a=false;
readln;
end.

function search(s1: string; ch: char): integer;
var i, q: integer;
begin
  q := 0;
  for i := 1 to length(s1) do
    if s1[i] = ch then q := q + 1;
  search := q;
end;
var s: string;
  b: char;
  a: boolean;
begin
  writeln('Введите строку');
  readln(s);
  writeln('Введите букву');
  readln(b);
  if search(s, b) > 0 then a := true else a := false;
  WriteLn('a = ',a);
  readln;
end.

a := search(s, b);

a := search(s, b) > 0;

function search(s1: string; ch: char): boolean;
begin
search := pos(ch,s1)>0
end;
var s: string;
    b: char;
begin
  writeln('Введите строку');
  readln(s);
  writeln('Введите букву');
  readln(b);
  WriteLn(search(s,b));
  readln;
end.

procedure Str(X [: Width [: Decimals ]]; var S : String);