рассчитать ковариацию (корреляционный момент) значений столбцов матрицы 9*5 (программа на Pascal не работает)

[aleksandr_1983]

программа должна рассчитать ковариацию (корреляционный момент) значений столбцов матрицы 9*5. Листинг

program array;
uses CRT;{библиотека для вывода сообщений на экран}
var a:array [1..9, 1..5] of real;b:real;c:real;d:real;e:real;i:real;j:real;
begin
procedure fill_array;{заполнение массива значениями}
var a:array [1..9, 1..5] of real;b:real;c:real;d:real;e:real;i:real;j:real;
begin
for i:=1 to 9 do
for j:=1 to 5 do
b:random a[i,j];
procedure mid; 
var a:array [1..9, 1..5] of real;b:real;c:real;d:real;e:real;i:real;j:real;
begin
c:=(b[11]+b[21]+b[31]+b[41]+b[51]+b[61]+b[71]+b[81]+b[91])/9;
d:=(b[12]+b[22]+b[32]+b[42]+b[52]+b[62]+b[72]+b[82]+b[91])/9;
procedure covariation
var a:array [1..9, 1..5] of real;b:real;c:real;d:real;e:real;i:real;j:real;
begin
d:=(a[11]-b)*(a[12]-b);
write d[8,3];
end

компилятор turbo pascal при попытке запуска программы выдает сообщение "Error 113:error in statement". никак не пойму в чем дело



___________
1) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)

2) Название темы должно адекватно отражать суть решаемой задачи/проблемы.

Не забывайте об этом!

Модератор.