Имеется массив из 8 строк и столбцов, определить сумму элементов каждой строки массива и результат вывести на экран (Нужно решить в BASIK)

Program massiv; Const n=100; Var a:array[1..n] of integer;     i,s:integer; Begin s:=0; For i:=1 to n do  Begin   a[i]:=i*i;   Write(a[i]:6);   s:=s+a[i];  end; WriteLn; Write('Сумма=',s); end.