Требовалось написать программку, которая получает на входе естественное число n и

Требовалось написать программку, которая получает на входе натуральное число n и выводит число, которое выходит из n после удаления всех пятерок, порядок других цифр при этом не изменяется. Программер торопился и написал программку ошибочно, найдите неправильную строку и исправьте ее.
var n, r, t:longint;
d:integer;
begin
readln (n);
r:=0; t:=1;
while ngt;0 do begin
d:=n mod 10; if d=5 then begin
r:=r+d*t;
t:=t+1
end;
n:=n div 10;
end;
writeln (t);
end.