Вычислить отношение суммы элементов побочной и главной диагоналей

program z;
var i,j,n,s,s1:integer;
a:array [1..100,1..100] of integer;
begin
     write('Ðàçìåðíîñòü ìàòðèöû: ');
     readln(n);
     writeln('Ñëó÷àéíàÿ ìàòðèöà');
     for i:=1 to n do
         begin
              for j:=1 to n do
                  begin
                       a[i,j]:=trunc((39-21)*random+21);
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
     s:=0;
     for i:=1 to n do
         for j:=1 to n do
             if i=j
                then
                    s:=s+a[i,j];
     writeln('Ñóììà ýëåìåíòîâ ãëàâíîé äèàãîíàëè - ',s);
     for i:=1 to n do
         for j:=n downto 1 do
             s1:=s1+a[i,j];
     writeln('Ñóììà ýëåìåíòîâ ïîáî÷íîé äèàãîíàëè - ',s1);
     if s>s1
        then
            writeln('Ñóììà ýëåìåíòîâ ãëàâíîé äèàãîíàëè áîëüøå ñóììû ýëåìåíòîâ ïîáî÷íîé äèàãîíàëè')
     else if s<s1
          then
              writeln('Ñóììà ýëåìåíòîâ ãëàâíîé äèàãîíàëè ìåíüøå ñóììû ýëåìåíòîâ ïîáî÷íîé äèàãîíàëè')
     else if s=s1
          then
              writeln('Ñóììà ýëåìåíòîâ ãëàâíîé äèàãîíàëè ðàâíà ñóììå ýëåìåíòîâ ïîáî÷íîé äèàãîíàëè');
end.