Быки и коровы

[UuuU]

задача на паскале ABS У меня есть задача про игру "быки и коровы",пожалуйста помогите написать эту же программу с помощью функций.. Никак не могу понять как это. Суть игры в том,что компьютер случайно загадывает четырехзначное число,я ввожу свое и сравнивается оно с компьютерным, если число правильное и на таком же месте,то это бык, а если числа просто угаданы,то это корова,если же все 4 числа верно угаданы,то я выигрываю. Пожалуйста помогите.

var
 comp, my, help : string[4];
 i, n, j, i2, j2, b, c: 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
b:=0;
c:=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 b:=b+1;

for j2:= 1 to 4 do
for i2:= 1 to 4 do
if comp[i2] = my[j2] then c:=c+1;

WriteLn('быки: ',b,'. коровы: ',c);
until (comp = my);
WriteLn('Вы сделали ходов ', a);
WriteLn('компьютер загадал: ',comp);
ReadLn;
vihod:
end.

[Serge_Bliznykov]

ух ты! Здорово. очень рад за Вас.

[UuuU]

помогите пжл составить тоже самое,но с функцией