Даны два массива чисел. Найти в них минимальные элементы. Если они равны, то исключить их из массивов. Процедуру повторять до тех пор, пока минимальные элементы массивов не окажутся разными — Pascal(Паскаль)

k:=0;
repeat
min1:=a[1];
k1:=1;
min2:=b[1];
k2:=1;
 
for i:=1 to n-k do
 if min1<a[i] then begin min1:=a[i]; k1:=i; end;
 
for i:=1 to n-k do
 if min2<b[i] then begin min2:=b[i]; k2:=i; end;
 
if min1=min2 then
begin
for i:=k1 to n-k-1 do
 a[i]:=a[i+1];
 
for i:=k2 to n-k-1 do
 b[i]:=b[i+1];
 
k:=k+1;
end;
 
until(min1<>min2);