Вывести по 10 чисел в столбец

for i:=1 to 10 do writeln(i);

Write('a', ' ', 'b',' ', 'c');
Write('a',' ', 'b',' ', 'c');
Write('a',' ', 'b',' ', 'c');

var
  i: integer;
 
begin
  for i := 1000 to 9999 do // перебираем все четырехчные числа
    if i div 1000 {первое число} + i div 100 mod 10 {второе}+ i mod 100 div 10 {третье} + i mod 10 {четвертое} = 10 then writeln(i);
end.

uses crt;
var  i,k,n: integer;
begin
k:=0;n:=0;
for i := 1000 to 9999 do // перебираем все четырехчные числа
if i div 1000 {первое число} + i div 100 mod 10 {второе}+
i mod 100 div 10 {третье} + i mod 10 {четвертое} = 10 then
 begin
  k:=k+1;
  gotoXY(n*5+1,k);
  write(i);
  if k=14 then
   begin
    n:=n+1;
    k:=0;
   end;
 end;
end.

k:=0;//количество чисел
n:=0;//количество столбцов
for i := 1000 to 9999 do // перебираем все четырехчные числа
if i div 1000 {первое число} + i div 100 mod 10 {второе}+
i mod 100 div 10 {третье} + i mod 10 {четвертое} = 10 then
 begin
  k:=k+1; //считаем
  gotoXY(n*5+1,k);//ставим курсор в строке в позизию 1,6,11,16....., в столбце по номеру
  write(i);//выводим
  if k=14 then//если вывели 14 чисел
   begin
    n:=n+1;//новый столбец
    k:=0; //обнуляем счетчик
   end;
 end;
end.

var  i,j,n: integer;
     a:array[1..10000] of integer; //массив для хранения чисел
     f:text;
begin
n:=0;
for i := 1000 to 9999 do // перебираем все четырехчные числа
if i div 1000 {первое число} + i div 100 mod 10 {второе}+
i mod 100 div 10 {третье} + i mod 10 {четвертое} = 10 then
 begin
  n:=n+1;
  a[n]:=i;
 end;
assign(f,'123.txt');
rewrite(f);
for i:=1 to n div 10 do //в файл можно и по 10 в столбике
 begin
  for j:=1 to n do
  if j mod 10=i then write(f,a[j],' ');
  writeln(f);
 end;
close(f);
end.