Дан массив размерностью 5х5 .Заполнить его так,чтобы по диагонали были 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       writeln (' ');       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;     end;     end.