program NN;uses crt;var O,b:integer; s:string; k:byte; p:real;function

Program NN;
uses crt;
var O,b:integer; s:string; k:byte; p:real;
function N0(l:integer):byte;
begin
repeat
if l mod 10=0 then
inc(l);
l:=l div 10;
until l=0;
end;
begin
read (s);
b:=length(s);
k:=N0(s);
p:=100*k/b;
writeln(p);
end.
По заданию надо отыскать процент правильных ответов
Условия:
1) тип записи ответов: 100101110101
2)1-верный ответ
3)0-неправильный ответ
4)надо отыскать по кол. ответов и кол. правильных ответов, процент правильных ответов
Примечание: Я написал программку но в ней ошибка, пытался убрать, но из-за нехватки познаний не получается

Среда Pascal