Дан массив (размерностью 5х5) (элементы вводятся с клавиатуры) . вывести элементы стоящие на главной диагонали

//Pascal`ик
var
arr: array[0..4, 0..4] of integer;
begin
for var i:=0 to 4 do
  for var j:=0 to 4 do arr[i, j]:=readinteger('Введите элемент ');

for var i:=0 to 4 do
  for var j:=0 to 4 do if i=j then print (arr[i, j]);
end.