Программа с модулем для поиска символа в предложении

Unit poisk;
interface
Var st,b:string; i:byte; k:integer;
implementation
begin
for i:=1 to Length(st) do
If st[i]=b then k:=k+1;
end.

Program ABC;
uses poisk;
var st,b:string; i:byte; k:real;
begin
writeln('Введите любое предложение');
readln(st);
writeln('Введите любой символ');
readln(b);
writeln.poisk('Кол-во входящих символов ',b,' равно ',k:5:1);
end.

unit poisk;
interface
{прототип функции}
function k(st : string; b : char) : byte;
 
implementation
{реализация функции}
function k(st : string; b : char) : byte;
var i, q : byte;
begin
  q := 0;
  for i:=1 to Length(st) do
    if st[i] = b then q := q + 1;
  k := q
end;
 
end.

uses poisk;
var
  st : string;
  b : char;
begin  
  write('Введите любое предложение: ');
  readln(st);
  write('Введите любой символ: ');
  readln(b);
  writeln('Кол-во входящих символов ', b,' равно ', k(st, b):3)
end.