дана квадратная матрица Х(5*5),выдать на печать элементы главной диагонали и найти сумму квадратов этих элементов- Pascal(Паскаль)

program hh;
var
 i,j,s:integer;
 a:array [1..5,1..5] of integer;
begin
 s:=0;
 writeln ('matrix 5*5:');
 randomize;
 for i:=1 to 5 do
  begin
   for j:=1 to 5 do
    begin
     a[i,j]:=random(10);
     write(a[i,j], ' ');   
    end;
   writeln; 
  end;
 writeln('Элементы главной диагонали:');
 for i:=1 to 5 do
  for j:=1 to 5 do
   if i=j then 
    begin
     s:=s+sqr(a[i,j]);
     write(a[i,j],' ');
    end;
 writeln;
 writeln('Сумма квадратов элементов главной диагонали:',s);
 readln;
end.