он был выше=)
вот немного обновленный вариант модуля
unit summa2;
interface
type ABC=array[1..15,1..15] of real;
var A:ABC;
i,j:integer;
procedure sp(A:ABC);
Procedure sim(A:ABC);
implementation
Procedure sim(A:ABC);
var no:real;
begin
no:=0;
for i:=1 to 15 do
for j:=1 to 15...