вектор, корректирровкаа Опции

[Гость]

добрый день
вот задачка ест Дано 100 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке. я то набрал

const n=99;
var  
  vect : array [0..n] of integer;
  i: longint;

begin
  randomize;
  for i:=0 to n do
    vect:=random(30);

  while i>=0 do begin
    writeln(vect[i] :5, vect[i-1] :5, vect[i-2] :5, vect[i-3] :5, vect[i-4] :5, vect[i-5] :5);
    i:=i-6;
  end;

  writeln(i);
  readln;
  read;
end.

но есть проблемка.. при [i]n mod 6 <>0
заранее благодарен.

[Tan]

uses crt;
const n=99;
var
  vect : array [0..n] of integer;
  i: longint;
  amount : integer; {количество элементов}
begin
  Clrscr;
  randomize;
  for i:= 0 to n do vect[i]:=i; {заполняем массив числами от 0 до 99}
  i := n;
 amount := 0; {изначально количество выведенных равно 0}
 while i >= 0 do
 begin
   if amount mod 6 = 0 then writeln; {если количество выведенных = 6? то переход на след строку}
   write (vect[i]:3); {пишем соответствуюший элемент}
   i := i - 1; {отнимает 1 от количества элементов}
   amount := amount + 1; {количество выведенных на 1 больше}
 end;
   readkey;
end.

[compiler]

одно решение(Tan-а) теперь ясно...