Вывести на экран 50 чисел от 1 до 999 Чтоб 40 были в строчку А последние 10 в столбик Через одномерный массив

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin   var a:=ArrRandom(50,1,999);   a.Take(40).Println;   a.Skip(40).Println(NewLine) end. Тестовое решение 164 67 626 431 758 259 924 741 796 179 989 880 813 112 832 970 662 970 558 5 833 343 694 379 297 192 565 147 611 302 284 925 784 98 61 895 907 190 208 679 55 195 206 597 664 762 201 452 965 298

var     i: integer;     a: array[1..50] of integer; begin     for i := 1 to 50 do     begin         a[i] := random(999);         write(a[i], ' ');         if i >= 40 then writeln;     end; end.