помогите решить
дан массивС[2n] нужно в нём найти 2 близких по значению числа и отправить их в массивы А[n] и B[n]
так продолжать до полного формирования массивов А и В
for z = 0 to w-2 do
for x = z+1 to w-1 do
if a[h, z]>a[h, x] then
for v := 0 to h do
begin
t := a[v, z];
a[v, z] := v[h, x]
a[v, x] := t;
end;