Заменить inc, until, repeat

var n,x,k,i,c:integer;
          p:real;
begin
write('n=');
readln(n);
repeat
write('Введите число от -10 до 20 для проверки кратности k=');
readln(k);
until (k>-11)and(k<21);
writeln('Сгенерированные числа');
c:=0;
for i:=1 to n do
 begin
  x:=-10+random(31);
  write(x:4);
  if x mod k=0 then inc(c);
 end;
writeln;
p:=c/n;
writeln('Количество чисел, кратных ',k,'=',c);
write('Их процент=',p:0:2);
end.

type
  tRes = record
    k, c : Integer;
  end;
 
function Gen(k, n : Integer) : tRes;
var
  r : tRes;
  x : Integer;
begin
  if n = 0 then
    begin
      r.k := k;
      r.c := 0;
    end
  else
    begin
      r := Gen(k, n - 1);
      x := -10 + Random(31);
      Write(x:4);
      if x mod k = 0 then
        r.c := r.c + 1;
    end;
  Gen := r;
end;
 
function Prov(n : Integer) : tRes;
var
  k : Integer;
begin
  Write('Введите число от -10 до 20 для проверки кратности: k = '); ReadLn(k);
  if (k < -10) and (k > 20) then
    Prov := Prov(n)
  else
    begin
      WriteLn('Сгенерированные числа:');
      Prov := Gen(k, n);
      WriteLn;
    end;
end;
  
var
  n : Integer;
  r : tRes;
begin
  Write('n = '); ReadLn(n);
  r := Prov(n);
  WriteLn('Количество чисел, кратных ', r.k, ' равно ', r.c);
  WriteLn('Их процент равен ', r.c / n : 0 : 2);
end.