программа из Уроки от Дмитриева Эдуарда, помогите начинающему разобраться Опции

[Данил]

1.По теме "циклы": - напишите программу, печатающую столбик строк такого вида:

1 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0
0 0 3 0 0 0 0 0 0
0 0 0 4 0 0 0 0 0
0 0 0 0 5 0 0 0 0
0 0 0 0 0 6 0 0 0
0 0 0 0 0 0 7 0 0
0 0 0 0 0 0 0 8 0
0 0 0 0 0 0 0 0 9

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

[klem4]

Да, я просто выложил не окончательную версию, не то скопировал, если использовать такой вариант, то возможны лишние операции, вот тот вариант который я хотел запостить :

uses crt;
const
   n=10;
var
   x : array[1..n] of integer;
   i,j,count,temp : integer;
begin

   clrscr;

   for i := 1 to n do readln(x[i]);

   i := 1;

   count :=1 ;

   while(i<=n-1) and (count<n-i+1) do begin
      j := i + 1;
      temp := 1;
      while(j<=n) do begin
         if x[i] = x[j] then inc(temp);
         inc(j);
      end;

      if temp>count then count := temp;
      inc(i);
   end;

   writeln('count=',count);

   readln
end.