Игра Быки Коровы (Delphi)

[whitedeath]

Вот у меня есть код игры "Быки Коровы" объясните мне пожалуйста что делать часть которая выделена жирным шрифтом

var
  Form1: TForm1;
  mass:array[1..4] of byte;
  _mass:array[1..4] of byte;
  Popitki:integer;
  cor:integer;
  buki:integer;
implementation
 
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var k:integer;
i:byte;
begin
cor:=0;
buki:=0;
Form1.Edit2.Text:='****';
k:=StrToInt(Edit1.text);
for i:=1 to 4 do begin
   _mass[i]:= k mod 10;
   k:=k div 10;
end;
for i:=1 to 4 do
if(mass[i]=_mass[i]) then inc(buki);
 
for i:=1 to 4 do
if((_mass[i]=mass[1])or(_mass[i]=mass[2])or(_mass[i]=mass[3])or(_mass[i]=mass[4])) then inc(cor);
Form1.Memo1.Lines[Popitki]:=' Коровы '+IntToStr(cor)+' Быки '+IntToStr(buki)+#10;
if(buki=4)then begin Form1.Caption:='Выиграли';
Form1.Edit2.Text:=FloatToStr(mass[1]+ mass[2]*10+mass[3]*100+mass[4]*1000);
for i:=1 to 4 do begin mass[i]:=0;  _mass[i]:=0; end;
Memo1.Text:='';
end;
if(Popitki=10)then begin
Form1.Caption:='Проиграли';
Form1.Edit2.Text:=FloatToStr(mass[1]+ mass[2]*10+mass[3]*100+mass[4]*1000);
for i:=1 to 4 do begin mass[i]:=0;  _mass[i]:=0; end;
Memo1.Text:='';
end;
 inc(Popitki);
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.