Подделать

[schibeki]

Добрых времени суток. Помогите доделать программу,пожалуйста,завтра сдавать,а довести до рук не получается. вот условие:Дано целое число N(>0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется , то вывести True, если нет – вывести False.
Ошибка моей программы заключается в том, что если я введу,например,12,то прога выводит False и True, а мне нужно,чтобы вывела только True. А если я введу 22,то она выводит два раза True, а мне нужно,чтобы один раз выводила. Вот мой код:

var
a,a1:integer;
check:boolean;
begin
a:=StrToInt(Edit1.Text);
while (a<>0) do
begin
a1:=a mod 10;
a:=a div 10;
if (a1=2) then Memo1.Lines.Add('True'); end;
if (a1<>2) then Memo1.Lines.Add('False');

Буду благодарен

[Stilet]

var
a,a1:integer;
check:boolean;
begin
a:=StrToInt(Edit1.Text);
while (a<>0) do
begin
a1:=a mod 10;
a:=a div 10;
Memo1.Lines.Add(BoolToStr(a1=2,true));

Годится?

[schibeki]

Сейчас попробую. Думаю,годится