паскаль не могу составить программу

[xq1b]

народ в универе задали задачу разработать программу где даны два массива. Найти минимальное значение элементов первого массива, максимальное значение элементов второго массива и поменять их местами.
Если не влом помогите просто это не мое.

[Leshii]

Program Mas;
Uses crt;
const n=3;
var A,B:Array [1..n] of integer;
    i,min,max,tmp:integer;
    mini,maxi:integer;
    
begin
clrscr;

for i:=1 to n do begin
    write('Vvedite massiv A[',i,']=');
    readln(A[i]);
end;
for i:=1 to n do begin
    write('Vvedite massiv B[',i,']=');
    readln(B[i]);
end;

min:=a[1];mini:=1;
for i:=1 to n do
 if a[i]<min then begin min:=a[i];mini:=i; end;
max:=b[1]; maxi:=1;
for i:=1 to n do
 if b[i]>max then begin max:=b[i];maxi:=i; end;
tmp:=a[mini];
a[mini]:=b[maxi];
b[maxi]:=tmp;
 for i:=1 to n do
   write(A[i],' ');
   writeln;
 for i:=1 to n do
   write(B[i],' ');

readln;
end.

[xq1b]

спасибо за проделанную тобой работу