Сформировать новый массив, каждый элемент которого равен разности элементов исходных массивов

const
n = 10;
f = chr(10);
g = chr(12);
var
mas,mas1,mas2,mas3: array [1..n] of integer;
i,min : integer;
begin
randomize;
for i := 1 to n do begin
          mas[i] := random(100)+1;
          mas1[i] := random(100)+1;
          end;
for i := 1 to n do
    mas2[i] := mas[i] - mas1[i];
min := mas2[1];
for i := 1 to n do
    if mas2[i] < min then min := mas2[i];
for i := 1 to n do
    if mas2[i] = min then mas3[i] := i;
writeln ('Заданные масивы ');
write('Первый: ');
for i:= 1 to n do
write (mas[i] :4);
write(g,f,'Второй: ');
for i:= 1 to n do
write (mas1[i] :4);
write(g,f,'Сформированный: ');
for i:= 1 to n do
write (mas2[i] :4);
writeln(g,f, 'Минимальный элемент нового массива: ', min);
write(g,f,'Индексы минимального числа: ');
For i:= 1 to n do
if mas3[i] > 0 then write (mas3[i]);
 
 
 
end.

Write   ('! ',i:4,'  !             ',a[i]:4,'           !          ',m[i]:4,'            !     ',q[i]:5,'    !');