Заполнить двумерный массив

и вывести его на печать в виде

1 0 0 0 0

0 1 0 0 0

0 0 1 0 0

0 0 0 1 0

0 0 0 0 1

Подсказка;надо ввести условия для вывода
1,а в остальных случаях выводится 0

  • program matrix1;
    type
       matrix= array [1..5, 1..5] of integer;
    var
       a : matrix;
       i, j: integer;
    begin
       for i :=1 to 5 do begin
          for j :=1 to 5 do begin
             if i=j then a[i, j]:=1 else a[i, j]:=0;
             write (a[i,j], ‘ ‘);
            end;
            writeln (‘ ‘);
        end;
    end.