клац
для произвольного количества столбцов, вдруг завтра уже для четырех понадобится))
вводим сначала общее количество элементов n, потом количество столбцов m
если n не делится на m, остаток отбросится
[от лишних модулей SysUtils и Classes избавился]

upd
точняк, исправил ссылку