Ну, коллеги - хвостом вас по голове - развели черт-те что на пустом месте.
Код:
var
a:LongInt;
z:Byte;
begin
write ('Введите число: ');
readln(a);
z:=0;
repeat
if (a mod 10)=5 then z:=z+1;
a:=a div 10
until a=0;
write('Количество цифр 5: ', z);
readln;
end.
И всего делов-то!