Turbo Pascal, вопрос про масивы

[Chpoki]

Как вывести таблицу одномерным массивом? Вот так, m Ha n

1 5 9 13

2 6 10 14

3 7 11 15

4 8 12 16

[VeTaL_UA]

По человечески объясни... Тебе нужно вывести числа из массива в таблицу по 4 числа в строке?

[Chpoki]

Нужно вывести таблицу m-строк n-столбцов, одним масивом, так как показано:

1 5 9 13 17
2 6 10 14 18
3 7 11 15 19
4 8 12 16 20

[VeTaL_UA]

var
i,j,o,k,l,m,n:integer;
c:array of integer;
begin
writeln('Privet :)');
write('Vvedite dlinnu massiva: ');
readln(i);
SetLength(c,i);
writeln('Vvod chisel v massiv:');
 for j:=0 to i-1 do
  begin
  write('Vvedite '+IntToStr(j+1)+' chislo: ');
  read(c[j]);
  end;
writeln('');
write('Vvedite kolichestvo chisel v stroke: ');
read(m);
writeln('');
write('Vvedite kolichestvo chisel v stolbce: ');
read(n);
o:=0;
 for j:=0 to n-1 do
  begin
  writeln('');
  l:=o;
   for k:=0 to m-1 do
    begin
     if l<i then
      begin
      write(c[l]);
      write(' ');
      l:=l+n;
      end;
    end;
  inc(o);
  end;
end.

Писал на глаз без компилятора, так что могут быть ошибки