дано естественное число найти А) есть ли в нем цифра 3

Var
a, n: longint;
v1, v2, v3: byte;
s: byte;
begin
readln(a);
n := a;
v1 := 0;
v2 := 0;
v3 := 0;
while (n lt;gt; 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.