Для каждого числа в цикле найти его делители

procedure D(a: integer);
begin
  var b := a;
  while b <> 0 do
  begin
    if a mod b = 0 then WritelnFormat('Число {0} является делителем для числа {1}.', b, a);
    Dec(b);
  end;
end;
 
begin
  for var i := 0 to ReadlnInteger('N:') - 1 do
    D(ReadlnInteger('Число:'));
end.

program BLOCK15;
 
var
  i, n, j:  integer;
 
begin
  write('N=');read(n);
  i := 1;
  while i < n do
  begin
  write(i,':');
    for j := 1 to n do
    begin
      if i mod j = 0 then
        write(j,', ');
    end;
    i := i + 1;
    writeln;
  end;
end.

WriteFormat('{0} ', j);

begin
  range(1,ReadlnInteger('n=')).Select(i->Format('{0}:{1}',i,string.Join(',',Range(1,i).Where(j->i mod j=0)))).Println(newline);
end.

begin
  Range(1, ReadlnInteger('N:')).Select(x -> Format('Делители числа {0}: {1}.', x, Range(1, x).Where(y -> x mod y = 0).JoinIntoString(' '))).Println(NewLine);
end.

begin
  ReadlnInteger('N:').Range.ForEach(i -> WritelnFormat('Делители числа {0}: {1}.', i, i.Range.Where(y -> i mod y = 0).JoinIntoString(' ')))
end.