Pascal. Задача на работу с массивами.

[Hallas]

Здравствуйте, препод задал сделать проект ( мат. модель, ход решения и задача). Все бы ничего но задачу у меня сделать не получается..а остальное нужно ведь делать по ней.

Соб-но сама задача:
Найти среднее арифметическое в каждой строке масива B[1..7,1..6] и отнять его от кажого значения этой строки, кроме последнего.

Завтра сдавать. Полный аут..ребят, прошу прощения за попрошайничество, но буду очень признателен, если кто-то поможет. Заранее благодарю!

[Hallas]

program pr1;
uses crt;
var a:array[1..7,1..6] of integer;
a1: array[1..7,1..6] of real;
s1,s2,s3,s4,s5,s6,s7:real
i,j:integer
begin
randomize;
For i:=1 to 7 do begin
For j:=1 to 8 do begin
a[i,j]:=random(10);
end;
writeln;
end;
s1:=0;
s2:=0;
s3:=0;
s4:=0;
s5:=0;
s6:=0;
s7:=0;

ну то что сам написал и точно правильно..а дальше чото я застрял =(

[Hallas]

ну..парни, неужели никто не знает?