Дано натуральное число определить а) есть ли в нем цифра 3 б)есть ли в нем цифры 2 и 5

Var
a, n: longint;
v1, v2, v3: byte;
s: byte;
begin
readln(a);
n := a;
v1 := 0;
v2 := 0;
v3 := 0;
while (n <> 0) do begin
s := n mod 10;
n := n div 10;
if (s = 3) then
v1 := 1;
if (s = 2) then
v2 := 1;
if (s = 5) then
v3 := 1;
end;
if (v1 = 1) then
writeln('В этом числе есть цифра 3')
else
writeln('В этом числе нет цифры 3');
if (v2 = 1) and (v3 = 1) then
writeln('В этом числе есть цифры 2 и 5')
else
writeln('В этом числе нет одновременно цифр 2 и 5');
end.