По информатике проходим паскаль. дано найти количество 5 в числе х!

Здесь простое решение:

Превращаем число Х в строку символов,
а затем , просматривая эту строку пытаемся найти в нем пятерки.

Что-то типа этого:

var X, Col,  i: integer;
     Stroka: String; 
begin
Col:=0;
 Write('Ведите число Х='); ReadLn(X);
Str(x, Stroka);
for i:=1 to length (Stroka) do
    if Stroka[i]='5' then Col:=Col+1;
WriteLn('Число пятерок=' , Col);
ReadLn;
end.