Подскажите как сделать это на Паскале

uses
    crt;
var
    x, y, a, b: integer;
begin
    randomize;
    x := random(10);
    y := random(10);
    writeln(x, ' ', y);
    while true do begin
        write('угадай два числа: ');
        read(a, b);
        if ((a = x) and (b = y)) or ((a = y) and (b = x)) then begin
            writeln('бинго! ');
            break;
        end
        else begin
            writeln('неверно');
            write('продолжим (y - для продолжения, любая другая клавиша для выхода) ? ');
            if readkey <> 'y' then begin
                writeln;
                writeln('числа: ', x, ' ', y);
                break;
            end;
        end;
        writeln;
    end;
end.

с одним числом как-то так, с двумя сами подумайте

program kkk;
uses crt;
var comp,player:integer;

begin
clrscr;
randomize;
comp:=random(11);
write('Компьютер загадал число от 0 до 10. Введите ваше число: ');
readln(player);
while comp<>player do
begin
write('Не то число! Введите новое число: ');
readln(player);
end;
writeln('Вы угадали! ');
readln;
end.

Не слушай их, они рабы, я лучше сделаю.

вводишь перемнные две
дальше пишешь что твоя переменная = рандому
потому пишешь если твоя переменная равна числу которое сгенрирывал комп тогда во врайтлн пишет вы выиграли!
Делай всё через Фор