Найти сумму матриц - Pascal

program pr;
var
a,b,c:array [1..100,1..100] of real; // 3 массива вещественных, не обязательно до 100, какие хочешь, в целом больше 20 редко берут 
i,j,n:integer;
begin
writeln('Введите порядок матриц');    // вводим порядок матрицы,то есть её размер,если вводит 3,то размер матрицы 3х3, если 4,то 4х4 и тд.
readln(n);
for i:=1 to n do
begin                 // 2 цикла для заполнения строк(i) и столбцов(j) матрицы
for j:=1 to n do
a[i,j]:=random(21);   // матрица заполнена случайными числами от 0 до 20 (можно брать такой диапазон какой хочешь, при желании  можно задать матрицу не случ. числами, а в вводом пользователя)
end;
writeln('Матрица А');
for i:=1 to n do
begin                 // с помощью таких же циклов выводим матрицу на экран
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
for i:=1 to n do             // так же и со 2 матрицей
begin
for j:=1 to n do
b[i,j]:=random(21);
end;
writeln;
writeln('Матрица B');
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:3);
writeln;
end;                         // теперь создадим 3 матрицу,каждый элемент котjрой равно сумме соответ эл. 2 других матриц( например с[1,1]:=a[1,1]+b[1,1]) и тд до конца цикла,то есть до цикла( цифры порядка матрицs)
for i:=1 to n do           
begin                   
for j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
writeln;
writeln('Матрица C');        // выводим 3 матрицу как предыдущие 
for i:=1 to n do
begin
for j:=1 to n do
write(c[i,j]:3);
writeln;
end;
 
end.