Дан массив размерностью 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.