Сделаем немного эффективнее
Uses Crt;
var A,B,D: array[1..10] of integer;
m,i:integer;
begin
clrscr;
write('введите число элементов массивов <=10 - ');
readln(m);
writeln('введите элементы массива A и B');
for i:=1 to m do
begin
write ('A[',i,']= ');
readln (A[i]);
Writeln;
write ('B[',i,']= ');
readln (B[i]);
D[i]:=A[i]-B[i];
end;
writeln;
writeln('вывод массивов');
for i:=1 to m do
write (A[i]:5);
writeln;
write (B[i]:5);
writeln;
write (D[i]:5);
writeln;
readkey;
end;
Я тоже не проверял, но думаю заработает