Быки и коровы - как реализовать алгоритм

uses
    crt;
var
   a,b,c,d,e,a1,b1,c1,d1,e1,i,i1:integer;
procedure vvod_random;
var
   a,b,c,d,e,a1,b1,c1,d1,e1,i,i1:integer;
begin
 repeat
 a1:=random(10);
 until a1<>0;
 repeat
 b1:=random(10);
 until b1<>a1;
 repeat
 c1:=random(10);
 until (c1<>a1) and (c1<>b1);
 repeat
 d1:=random(10);
 until (d1<>a1) and (d1<>b1) and (d1<>c1);
 repeat
 e1:=random(10);
 until (e1<>a1) and (e1<>b1) and (e1<>c1) and (e1<>d1);
 writeln(a1,b1,c1,d1,e1);
end;
 
procedure vvod;
var
   a,b,c,d,e,a1,b1,c1,d1,e1,i,i1:integer;
begin
 writeln('a','b','c','d','e');
 readln(a,b,c,d,e);
 i:=0;
 i1:=0;
end;
 
procedure sravn;
var
   a,b,c,d,e,a1,b1,c1,d1,e1,i,i1:integer;
begin
 if a=a1 then
 inc(i)
 else
 if (a=b1) or (a=c1) or (a=d1) or (a=e1) then
 inc(i1);
 if b=b1 then
 inc(i)
 else
 if (b=a1) or (b=c1) or (b=d1) or (b=e1) then
 inc(i1);
 if c=c1 then
 inc(i)
 else
 if (c=a1) or (c=b1) or (c=d1) or (c=e1) then
 inc(i1);
 if d=d1 then
 inc(i)
 else
 if (d=a1) or (d=b1) or (d=c1) or (d=e1) then
 inc(i1);
 if e=e1 then
 inc(i)
 else
 if (e=a1) or (e=b1) or (e=c1) or (e=d1) then
 inc(i1);
 writeln('Быков-',i,',','Коров-',i1);
 if (a<>a1) or (b<>b1) or (c<>c1) or (d<>d1) or (e<>e1) then
 begin
  vvod;
  sravn;
 end;
end;
begin
 vvod_random;
 vvod;
 sravn;
end.