Сформировать матрицу по заданному образцу.Pascal

[Bulat]

Ребят пожалуйста помогите написать программу на Pasсal, не могу сдать лабу, буду ооочень благодарен, выручите студента)
Задание: Сформируйте матрицу по заданному образцу:
1 4 7
2 5 8
3 6 9

[Oleg_Rus]

var a: array [1..100, 1..100] of integer;

procedure create_table(n:integer);
var i, j, k:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
a[j, i]:= k;
inc(k);
end;
end;

procedure write_table(n:integer);
var i, j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i, j]);
writeln;
end;
end;

begin
create_table(3);
write_table(3);
end.

// Могут быть погрешности (пишу навскидку, без компилятора), если что стучи в асю

[Bulat]

var a: array [1..100, 1..100] of integer;

procedure create_table(n:integer);
var i, j, k:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
a[j, i]:= k;
inc(k);
end;
end;

procedure write_table(n:integer);
var i, j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i, j]);
writeln;
end;
end;

begin
create_table(3);
write_table(3);
end.

// Могут быть погрешности (пишу навскидку, без компилятора), если что стучи в асю

После компиляции, никакой матрицы к сожалению не выходит, просто нули((

[ATTACH]1641[/ATTACH]

[Oleg_Rus]

Код: Выделить всё

var a: array [1..3, 1..3] of integer;

procedure create_table(n:integer);
var i, j, k:integer;
begin
k:=1;
for i:=1 to n do
for j:=1 to n do
begin
a[j, i]:= k;
inc(k);
end;
end;

procedure write_table(n:integer);
var i, j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i, j]);
writeln;
end;
end;

begin
create_table(3);
write_table(3);
end.

Не знаю как у вас, но у меня ЭТОТ код работает нормально и без всяких ошибок