Нужна с pascal дан двумерный массив от 1 до 3 ввести элементы массива с клавиатуры и обнулить диагональ матрицы

Program Project2; 
{$APPTYPE CONSOLE}
var a:array [1..3,1..3] of integer;    i,n:Integer;
begin 
 for i:=1 to 3 do   
 for n:=1 to 3 do   
  read(a[i,n]); 
for i:=1 to 3 do 
  for n:=1 to 3 do 
   if i=n then 
    a[i,n]:=0;
 for i:=1 to 3 do 
 begin   
 Writeln; 
 for n:=1 to 3 do   
 write(a[i,n]:3); 
 end; 
readln; 
 readln;
end.