Составить программу для игры "коровы и быки"

var
 comp, my, help : string[4];
 i, n, j, i2, j2, buffalo, cow: integer;
 i3,j3, a : integer;
 basa: string;
 label vihod;
begin
randomize;
a:=0;
comp:='0000';
my:='0000';
basa:='1234567890';
for i:= 1 to 4 do
begin
n:=1+random(Length(basa)-1);
comp[i]:=basa[n];
Delete(basa,n,1);
end;
 
Write('Показать подсказку(y/n)');
ReadLn(help);
 
if help = 'y' then
WriteLn('Компьютер загадал число : ',comp);
 
WriteLn('Введите exit если вам надоело играть!');
WriteLn('Игра будет продолжаться 10 ходов или до победы!!');
{------------------------------------------------------------------------}
repeat
buffalo:=0;
cow:=0;
a:=a+1;
Write('Введите число: ');
ReadLn(my);
 
if my = 'exit' then
goto vihod;
 
if a = 10 then
goto vihod;
 
for j:= 1 to 4 do
if comp[j] = my[j] then buffalo:=buffalo+1;
 
for j2:= 1 to 4 do
for i2:= 1 to 4 do
if comp[i2] = my[j2] then cow:=cow+1;
 
WriteLn('Быков: ',buffalo,'. Коров: ',cow);
until (comp = my);
{------------------------------------------------------------------------}
WriteLn('Вы сделали ', a, ' ходов!');
WriteLn('Компьютер загадал: ',comp);
ReadLn;
vihod:   
end.