Даны четыре натуральных числа. Просуммировать те из них, которые не содержат цифру 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.

Ввести переменную пройтись по всем цифрам числа
Если есть "5" - изменить значение переменной

var
A,S,i:integer;
procedure summ(a:integer;var s:integer);
var
k:integer;
t:boolean;
begin
t:=false;
k:=a;
if k<10 then k:=k+10;
repeat
t:=(k mod 10=5);
k:=k div 10;
until (k=0) or t;
if not t then
s:=s+a;
end;
begin
S:=0;
for i:=1 to 4 do begin
write(I,' число =');
readln(A);
summ(A,S);
end;
writeln('S=',S);
end.