Помогите пожалуйста в Pascal (Алгоритм сортировки)

[JayDe]

1. Задать два массива по 7 символов. Отсортировать оба массива: первый – по возрастанию методом выбора, второй – по убыванию методом пузырька. Выводить на экран каждый шаг сортировки.

2. Изменить программу так, чтобы задавались массивы произвольного размера. Ввод, вывод и сортировку массивов организовать в виде процедур.

P.S.И если можно в одной программе

Заранее спасибо! Буду Вам очень признателен если поможете!!!)))

[maladoy]

сортировка выбором

for i := 1 to n - 1 do
begin
  max := i;
  for j := i + 1 to n do
    if a[max] < a[j] then
      max := j;
  t := a[i];
  a[i] := a[max];
  a[max] := t;  
end;

метод пузырька

for i:=n-1 downto 1 do {n - размер массива arr[]}
    for j:=1 to i do
        if arr[j]<arr[j+1] then begin
            tmp:= arr[j];
            arr[j]:= arr[j+1];
            arr[j+1]:= tmp;
        end;
write('вывод значений arr[]: ');
for i:=1 to n do
    write(arr[i],' ');
writeln();

[maladoy]

program m1;
uses crt;
var ar:array[1..100] of integer;
     br:array[1..100]  of integer;
	  n1:integer;

f:boolean;
procedure vvod( var a:array of integer; n :integer);
var i:integer;
begin
for i :=1 to n do
 readln(a[i]);
end;
procedure vyvod( var b:array of integer; n :integer);
var j:integer;
begin
for j :=1 to n do
 readln(b[j]);
end;
procedure puzyr(var a:array of integer;n:integer);
var tmp:integer;
k,l:integer;
begin
for k:=n-1 downto 1 do {n - размер массива arr[]}
    for l:=1 to k do
        if a[l]<a[l+1] then begin
            tmp:= a[l];
            a[l]:= a[l+1];
            a[l+1]:= tmp;
        end;
for k:=1 to n do
 writeln(a[k]);
end;
procedure vybor(var b:array of integer;n:integer);
var i,j,t:integer;
    max:integer;
	begin
for i := 1 to n - 1 do
begin
  max := i;
  for j := i + 1 to n do
    if b[max] > b[j] then
      max := j;
  t := b[i];
  b[i] := b[max];
  b[max] := t;
end;
for i:=1 to n do
writeln(b[i]);
end;
begin
readln(n1);
writeln('-------------');
vvod(ar,n1);
writeln('-------------');
vvod(br,n1);
writeln('-------------');
puzyr(ar,n1);
writeln('-------------');
vybor(br,n1);
writeln('-------------');
 readln;
end.

[JayDe]

Спасибо Вам большое!!!