Не знаете, как вот это переделать, чтоб комп говорил, сколько чисел у пользователя совпало с компом?

Это лотерея Кено 20 из 62.
Нажмите для просмотра прикрепленного файла

var
  count: integer;
...
  if ke=polz then writeln('Ty vyigral!')
  else begin
    writeln('Ty ne vyigral!');
    count := 0;
    for i := 1 to 62 do
      if (i in polz) and (i in ke) then inc(count);
    writeln(count, ' matches ...');
  end;

volvo
спасибо!!!