программа должна вычислять корреляционный момент значений столбцов матрицы. Написана в Turbo Pascal 7.0. При запуске компилятор выдает сообщение:error in statement. Где ошибка - не могу понять. Листинг программы:
program array;
uses crt;
var a:array [1..9, 1..5] of real;b:real;c:real;d:real;i:real;j:real;
begin
procedure fill_massive;
var a:array [1..9, 1..5] of real;i:real;j:real;
begin
for i:=1 to 9 do;
for j:=1 to 5 do;
write 'Vvedite chislo a';
readln a[i,j];
procedure average_meaning;
var a:array [1..9, 1..5] of real;b:real;c:real;d:real;i:real;j:real;
begin
b:=(a[11]+a[21]+a[31]+a[41]+a[51]+a[61]+a[71]+a[81]+a[91])/9;{рассчитывает среднее значение столбца 1}
c:=(a[12]+a[22]+a[32]+a[42]+a[52]+a[62]+a[71]+a[81]+a[92])/9;
write b (1,2);
write c (1;2);
d:=(a[11]-b)*(a[12]-c);
write d (1;2)
c:=