Процедуры,функции, не получается решить Опции

[MrMoore]

Всем доброго времени суток,помогите пожалуйста разобраться с задачками ,где используются процедуры,одну я вроде как решил(проверить не помешает),в вот вторую я не то чтобы написать,толком понять не могу.Надеюсь на вашу помощь.
Задача1
Заданы a(10),b(10),c(10).Найти все попарные скалярные произведения.В процедуру вынести ввод массива;в функцию-нахождение скалярного произведения.
Мое решение 1 задачи.

Program mimimim
type mas:array [1..10] of integer;
var a,b,c:mas; scolar,i:integer
Procedure R(var x:=mas);
begin
for i=1 to 10 do
read (x[i])
end;
Procedure Pr(x,y:mas;var h:integer);
begin
h=0;for i:=1 to 10 do
h:=h+x[i]*y[i]
end;
Function Scolar(a:integer;b:integer;c:integer);
begin
R(a);R(b);R©;
Pr(a,b);Pr(b,c);Pr(a,c)
Scolar (a);Scolar (b);Scolar ©;
readln;
end.

Косяки есть в любом случае,объясните пожалуйста,с этой темой у меня туго(.

Задача2
Заданы a(5,5),b(5,5).Получить c(5,10),запись в c матрицу a c первого столбца,матрицу b с 6-ого столбца;d(5,10)-с первого столбца записать матрицу b,c 6-ого -матрицу a.В процедуры вынести ввод,вывод,получение новой матрицы.
Эту задачу я вообще не могу понять,а написать тем более,подскажите пожалуйста :с.

Сообщение отредактировано: APAL - 4.06.2013 8:09