Организовать ручное заполнение целочисленных массивов A и B,размерностью 10. Вывести на экран массивы A и B, а так же те элементы массива А,индексы которых совпадают с соответствующими элементами массива B, Найти сумму выведенных на экран элементов массива A и вывести её на экран — Pascal(Паскаль)

program z2;
uses crt,printer;       
var
  i,j:byte;
  summ:integer;        
  A:array [1..10] of integer;        
  B:array [1..10] of integer;
 
 
begin                           
clrscr;                          
for i:=1 to 10 do                               
    begin
    writeln('Введите эелемент массива A');
    read(A[i]);
    end;
for i:=1 to 10 do
    begin
    writeln('Введите эелемент массива B');
    read(B[i]);
    end;
writeln;
summ:=0;                                         
for i:=1 to 10 do
 if A[i]=B[i] then                              
   begin
   inc(j);
   writeln('общий: ',A[i]);
   summ:=summ+A[i];
   end;
 
  writeln('исходный массив A');
    for i:=1 to 10 do          
      write(A[i]:5);
    writeln;
    writeln('исходный массив B');
    for i:=1 to 10 do
     write(B[i]:5);
    readln;
 if j=0 then writeln(' нет совпадающих элементов')
 else writeln('сумма= ',summ);
readln;                                           
end.