Нужна помощь в Pascal (Алгоритм сортировки)

[keanemusic]

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

Буду очень признателен Вам за помощь!

[начинающий кодер]

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.

код от maladoy

[keanemusic]

А что нужно вписать вместо ('-------------'); ?????

[puporev]

А что нужно вписать вместо ('-------------'); ?????

Да ничего. Запусти программу и увидишь, то это просто украшение, не нравится убери.
А вот начало немного переделай. Зачем тебе массив размерностью 100 элементов, если у тебя по условию всего 7.

uses crt;
const n=7;
var ar,br:array[1..n] of integer;
     n1:integer;

[начинающий кодер]

Зачем тебе массив размерностью 100 элементов, если у тебя по условию всего 7

.

procedure vvod( var a:array of integer; n :integer);

размер массива задается при вызове процедуры. я так понял!

[capta1n]

program project;
uses crt;
const
 n = 7;
type
 x = 1..n;
 data = array [1..n] of integer;
var
 a,b : data;

 procedure enter_array ( var item : data; const n1 : integer );
 var
  i : x;
 begin
   randomize;
   for i:=1 to n do item[i]:=random(50);
 end;

 procedure output_array ( var item : data; const n1: integer );
 var
  k : x;
 begin
   for k:=1 to n1 do write (item[k]:3);
   writeln; writeln
 end;

 procedure sort_choose ( var item : data; const n1 : integer );
 var
  i,j,min : x;
  buf : integer;
 begin
   for i:=1 to n1-1 do
   begin
     min:=i;
     for j:=i+1 to n1 do
      if item[j]<item[min] then min:=j;
     buf:=item[i];
     item[i]:=item[min];
     item[min]:=buf;
     for j:=1 to n1 do write (item[j]:3);
     writeln
   end;
   writeln
 end;

 procedure sort_bubble ( var item : data; const n1 : integer );
 var
  i,k : x;
  buf : integer;
 begin
   for i:=1 to n1-1 do
   begin
     for k:=1 to n1-1 do
      if item[k]<item[k+1] then
      begin
        buf:=item[k];
        item[k]:=item[k+1];
        item[k+1]:=buf
      end;
     for k:=1 to n1 do write (item[k]:3);
     writeln
   end;
   writeln
 end;

begin

  clrscr;
  writeln ('Massiv A:');
  enter_array (a,n);
  output_array (a,n);
  writeln ('------------------------');
  sort_choose (a,n);
  output_array (a,n);
  writeln ('------------------------');

  writeln ('Massiv B:');
  enter_array (b,n);
  output_array (b,n);
  writeln ('------------------------');
  sort_choose (b,n);
  output_array (b,n);
  writeln ('------------------------');

  writeln ('Bubble sort: ');
  writeln ('Massiv A:');
  sort_bubble (a,n);
  output_array (a,n);
  writeln ('------------------------');
  writeln ('Massiv B:');
  sort_bubble (b,n);
  output_array (b,n);
  writeln ('------------------------');
  readln

end.

[capta1n]

только сортировки используйте поочереди - экрана консоли не хватает, чтобы весь текст воспроизвести - закомментите например вот так как я:

begin

  clrscr;
  {writeln ('Massiv A:');}
  enter_array (a,n);
  {output_array (a,n);
  writeln ('------------------------');
  sort_choose (a,n);
  output_array (a,n);
  writeln ('------------------------');}

  {writeln ('Massiv B:'); }
  enter_array (b,n);
  {output_array (b,n);
  writeln ('------------------------');
  sort_choose (b,n);
  output_array (b,n);
  writeln ('------------------------');}

  writeln ('Bubble sort: ');
  writeln ('Massiv A:');
  sort_bubble (a,n);
  output_array (a,n);
  writeln ('------------------------');
  writeln ('Massiv B:');
  sort_bubble (b,n);
  output_array (b,n);
  writeln ('------------------------');
  readln

end.

сам в шоке от того, что паскаль не хочет все показывать - всю стадию работы программы

[puporev]

размер массива задается при вызове процедуры. я так понял!

А понимать не надо, надо условие читать.

Задать два массива по 7 символов.

[начинающий кодер]

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

но это тоже присутствует в условии!!!

[puporev]

но это тоже присутствует в условии!!!

Извини, друг. Вроде в очках сижу, но плохо вижу.