Вывести номер последнего числа в наборе, большего К

var
  n, k, i, t: integer;
 
begin
  Write('K = ');
  Readln(k);
  Writeln('Введите набор чисел. Признак завершения - число 0');
  repeat
    Readln(n);
    i += 1;
    if n > k then
      t := i;
  until n = 0;
  Writeln('---------');
  Writeln(t);
end.

var
  N, K, i, i1: integer;
  
begin
  write(' K = ');
  readln(K);
  randomize;
  i := 0;
  repeat
    inc(i);
    N := random(2 * K);
    write(' ', N);
    if N > K then i1 := i 
  until (N = 0);
  writeln;
  write('Ответ: ', i1)
end.

var
  A: array[1..100, 1..100] of integer;
  n, i, j, p, q, S: integer;
  bl: boolean;
  
begin
  writeln('Введите размер матрицы:');
  write('n = ');
  readln(n);
  writeln('Введите диапазон значений [p, q], где p < q:');
  write(' p = ');
  readln(p);
  write(' q = ');
  readln(q);
  randomize;
  writeln('Матрица случайных чисел:');
  writeln;
  bl := false;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(201) - 100;
      write(a[i, j]:5);
      if odd(a[i, j]) and (a[i, j] in [p..q]) then
      begin S := S + a[i, j]; bl := true end
    end;
    writeln;
  end;
  writeln;
  if bl then 
   writeln('Сумма нечетных чисел с диапазона [', p, ', ', q, ']: ', S)
  else write('Таких чисел нет') 
end.