Здравствуйте, Цыбенов Баир Борисович!
Решение задачи с пояснениями в приложении.

Приложение:
uses crt;
const n=10;
var x,y:array[1..n]of real; {переменные, массивы(вектора)}
i,imax:integer; {перменные i-счетчик цикла, imax- номер элементов с максимальным произведением}
max:real; {максимальное произведение}
begin
clrscr;
randomize; {генерация случайных чисел}
writeln('Массив X:');
for i:=1 to n do
begin
x[i]:=random(10)+random; {присваиваем элементам массива случайные значения в инт.(0,10)}
write(x[i]:5:2); {выводим их на экран 5-количество позиций под число, 2-количество знаков после запятой}
end;
writeln;
writeln('Массив Y:');
for i:=1 to n do
begin
y[i]:=random(10)+random;
write(y[i]:5:2);
end;
writeln;
max:=x[i]*y[i]; {присваиваем макс первому произведению}
for i:=2 to n do
if x[i]*y[i]>max then {если находим большее}
begin
max:=x[i]*y[i]; { то max присваиваем это значение}
imax:=i; {запоминаем номер}
end;
write('Максимальное произведение у компонентов № ',imax,' =',max:0:2);
readln
end.