Даны четыре натуральных числа. просуммировать те из них, которые не содержат цифру 5

Х)

var
  i, k, b, a, sum: integer;

begin
  for i := 1 to 4 do
  begin
    readln(a);
    b := a;
    k := a;
    while (b > 0) do
    begin
      if (b mod 10 = 5) then
      begin
        k := 0;
      end;
      b := b div 10;
    end;
    sum := sum + k;
  end;
  writeln(sum);
end.