Вводятся 4 числа. Необходимо вывести их в порядке возрастания. При любых

var a,b,c,d:integer;

a: array[1..4] of integer;

i,k,t: integer; 

begin

writeln(Введите 1-ое число);

readln(a);

writeln(Введите 2-ое число);

readln(b); 

writeln(Введите третье число);

readln(c);

writeln(Введите четвёртое число);

readln(d);

a[1]:=a;

a[2]:=b;

a[3]:=c;

a[4]:=d;

for k := 1 to 3 do

for i:=1 to 4-k do if a[i] gt; a[i+1] then begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

end;

writeln(Числа в порядке возрастания: );

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

end.