Единичная матрица

[mimit]

Дан двумерный массив целых чисел. Определить: является ли он единичной матрицей.

const N=2;
var a:array[1..N,1..N] of integer;
    i,j,k1,k2:integer;
begin
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(2);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for i:=1 to n do
  for j:=1 to n do
  begin
    if a[i,j]=1
      then
        inc(k1)
      else
        if a[i,j]=0
          then
            inc(k2);
  end;
  if (k1=n) and (k2=n*n-n)
    then
      writeln('Это единичная матрица')
    else
      writeln('Это не единичная матрица');
  readln;
end.

Вроде написал программу но нужно написать еще условие чтобы проверить на каких позициях стоят 1

[Вадим Мошев]

написать еще условие чтобы проверить на каких позициях стоят 1

for i:=1 to n do
	if a[i, j] <> 1
		then
			begin
				flag:=false;
				break;
			end;