Написать рекурсивную программу для определения скалярного произведения двух векторов - Free Pascal

Формулировка задачи:

Напишите рекурсивную программу для определения скалярного произведения двух векторов. помогите пожалуйста решить срочно надо а то я не могу никак разобраться как писать((((

Решение задачи: «Написать рекурсивную программу для определения скалярного произведения двух векторов»

Листинг программы

Program rekyrsia;
type Mas=array[1..100] of integer;  
//Рекурсивная функция
function Scal(k:byte;x,y:Mas):integer;
begin
        if k=0 then Scal:=0 else Scal:=x[k]*y[k]+Scal(k-1,x,y)
  end;  
//Основная программа
var a,b:Mas;
       i,n,m:Byte;
begin
randomize;
write('Количество элементов массивов n=');
readln(n);
writeln('Массив А');
  for i:=1 to n do
    begin
       a[i]:=Random(20);
    write(a[i],' ');
  end;
writeln;
writeln('Массив B');
for i:=1 to n do
  begin
    b[i]:=Random(20);
    write(b[i],' ');
  end;
writeln;
write('Скалярное произведение=',Scal(n,a,b));
end.

Объяснение кода листинга программы

Объявление типа данных Mas для массива целых чисел размером 100.
Объявление рекурсивной функции Scal для вычисления скалярного произведения двух векторов.
Условие выхода из рекурсии: если значение k равно 0, то возвращаем 0, иначе возвращаем произведение элементов x[k] и y[k] плюс результат вызова функции Scal с аргументами k-1, x, y.
Объявление переменных a и b типа Mas.
Объявление переменных i, n и m типа Byte.
С помощью функции randomize инициализируем генератор случайных чисел.
Выводим сообщение Количество элементов массивов n= и считываем значение n с помощью функции readln.
Выводим сообщение Массив А и заполняем массив a случайными целыми числами от 0 до 19 с помощью цикла for и функции write.
Выводим сообщение Массив B и заполняем массив b случайными целыми числами от 0 до 19 с помощью цикла for и функции write.
Вычисляем скалярное произведение двух векторов a и b с помощью функции Scal и выводим результат с помощью функции write.