Question

program faceyourseif;
var
x:integer;
k:integer;
begin
x := Random(100);
writeln('Компьер загадал число от 0 до 100');
writeln('Попробуйте его угадать');
repeat
begin
writeln('Введите число');
read(k);
if k > x then
writeln('Не угадали! Загаданное число меньше');
if k < x then
writeln('Не угадали! Загаданное число больше');
if k = x then
writeln('Поздравляю,вы угадали!
end;
until false;
end.

Как сделать,чтоб было 3 или более попытки ?Не закрывая консоль