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

[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.

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