Задача из "Уроков" на циклы, Никак не получается сделать... Опции

[Lauri]

Задача из "уроков" , там внизу - составить столбик из нулей, а по диагонали цифры по возрастанию...

Вот как я это сделал... но все бы хорошо, только диагональные цифры начинают считаться с 2, а не с 1... толи я не к той переменной приравнял подсчёт цифр, то ли что...

Код

program kvadrat;
uses crt;
const n=9;
var z,x,c,v:integer;
    a:array [1..n,1..n] of integer;

    begin
    clrscr;

      for z:=1 to n do
      begin
        for x:=1 to n do
          begin
          a[z,x]:=0;
         for c:=1 to n  do
              begin

              a[x,z]:=x+1;


              end;

           write (a[z,x]:2);

          end;
   writeln;
     end;
     readln;
    end.

Кто сможет разобраться в чём ошибка, помогите плиз!

[GoodWind]

чесс-говоря разбираться в чужом коде невмоготу сейчас... набросаю по новой.

Код

const n=9;
var a:array [1..n,1..n] of byte;
    i, j:byte;

begin
for i:=1 to n do a[i,i]:=i;
for i:=1 to n do begin
writeln;
for j:=1 to n do write(a[i,j],' ');
end;
readln;
end.

вот.. просто обрати внимание, x и y каждой выводимой цифры (кроме 0 конечно) равны ей самой =)