В данном одномерном массива из 10 частей, переставить элементы так, чтобы

var a: array[1..10] of integer;

des: array[1..10] of integer;

oth: array[1..10] of integer;

ides, ioth: byte;

i: integer;

begin

writeln(Заполните с клавиатуры массив);

for i := 1 to 10 do readln(a[i]);

for i := 1 to 10 do if a[i] div 10 = 0 then begin

ides := ides + 1;

des[ides] := a[i];

end else begin

ioth := ioth + 1;

oth[ioth] := a[i];

end;

for i := 1 to ides do a[i] := des[i];

for i := (ides + 1) to (ides + ioth) do a[i] := ioth[i];

for i:=1 to 10 do write(a[i]:4);

end.