Упорядочить по возрастанию элементы массива с15

Program f;

uses crt;

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

b, i, h:integer;

begin

clrscr;

for i:=1 to 5 do begin write ('vvod ', i,' el mas') ;

readln (a[i]) ;

end;

for h:=1 to 25 do

for i:=1 to 4 do

if (A[i]>A[i+1]) then

begin

b:=A[i+1];

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

A[i]:=b;

end;

for i:=1 to 5 do write ('vivod mas', a[i],' ') ;

readkey;

end.