Упорядочить по возрастанию элементы массива с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 dowrite('vivod mas',a[i],' ');
readkey;
end.