подпрограмма сложения двух матриц Pascal ABC

[программирование]

добрый вечер, форумчани. помогите, пожалуйста, написать программу на Pascal ABC

написать подпрограмму сложения двух матриц. (обязательно в виде подпрограммы(процедуры или функции)Pascal ABC

ЗАРАНЕЕ, СПАСИБО, ЗА ОТВЕТЫ.

[hon]

1. Наработки в студию.
2. В чем проблема, не написано.
3. Правила русского языка не учитываются.
4. Большими буквами крайне нежелательно писать сообщения.
5. Ник слишком странный.

[Sciv]

procedure SumMatrix(N:integer; A,B: Array of real; var C: Array of real);
var i,j: integer;
begin
  for i:=1 to N do
    for j:=1 to N do
      c[i,j]:=a[i,j]+b[i,j];
end;