Программа вычисления  суммы  элементов  двумерного вещественнозначного массива X максимального размера 10×10 — Pascal(Паскаль)

Program Pr22 (Input, Output); 
Var 
X : Array [1..20, 1..20] Of Real;
N : Integer;
S : Real;
i, j: Integer;
 
Begin
 
WriteLn ('PASCAL: Вычисление суммы элементов прямоугольной таблицы.'); 
Write ('Введите размерность таблицы:N = ');
ReadLn (N); 
WriteLn ('Введите элементы таблицы:'); 
For i := 1 To N Do
For j := 1 To N Do
Begin
Write ('X[', i, ',', j, '] = ');
ReadLn (X [i,j] ); 
End;
 
S := 0;
For i := 1 To N Do
For j := 1 To N Do
S := S + X [i, j];
 
WriteLn ('Cумма:S = ', s: 6: 1);
ReadLn;
End.