Найти произведение ряда

uses crt;
const n=10;
var a,b,i: integer;
begin
writeln('Введите А и В');
readln(a, b);
for i:=1 to n do
a:=(a-b);
writeln('y=',a);
end.

type 
   td=integer;
   vector=array[1..10] of td;
   
var 
   a,b:vector;
   p:td;
   i:byte;
 
Begin
 
For i:=1 to 10 do
begin
 
 //write('Введите A[',i,']: ');readln(a[i]);
 //write('Введите B[',i,']: ');readln(b[i]);
 a[i]:=random(100); b[i]:=random(100);
 
end;
 
for i:=1 to 10 do
 if i=1 then write('A[',a[i],',')
        else if i=10 then writeln(a[i],']')
        else write(a[i],',');
 
p:=1;
 
for i:=1 to 10 do
begin
 if i=1 then write('B[',b[i],',')
        else if i=10 then writeln(b[i],']')
        else write(b[i],',');
 p:=p*(a[i]-b[i]);
end;
 
writeln;
writeln('y=',p)
 
End.