Последовательности в Паскаль

[chapotai]

Упорядочить последовательность из 25 чисел по возрастанию их элементов. Вывести на экран исходную и полученную последовательности. Знающие люди, помогите с текстом задачи в Паскале

[rubius2008]

...
{вывод исходной}
for i:=1 to 25 do write(a[i],' ');
writeln;
{Сортировка}
for j:=1 to 25 do 
  for i:=1 to 24 do if a[i]>a[i+1] then begin
     x:=a[i];  a[i]:=a[i+1];  a[i+1]:=x;
  end;    
...

вывод полученной также как и исходной - тот же код.

[chapotai]

спасибо огромное