Определить частоту вхождения указанного символа в строку- Pascal(Паскаль)

program nalichie_odinacovih_chisel_v_chetirehznachnom_chisle;
var
    s: string;
    c: char;
    n,len,i: byte;
    freq: real;
begin
if len > 1 then
writeln (' число введено не верно');
    write('String: ');
    readln(s);
    write('Char: ');
    readln(c);
    n := 0;
    len := length(s);
    for i:=1 to len do
        if s[i] = c then
            n := n + 1;
    freq := (n / len) * 100;
    writeln('Frequency: ',freq:5:2,'%');
readln
end.