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