Ошибка в модуле сортировок

unit sort;
interface
const n:integer=25;
type mas=array[1..100] of integer;
      procedure sortbubble(var a:mas; n:integer); 
      procedure ProstVbIbirom(var a:mas; n:integer);
      procedure Ismas(var a: mas);
      procedure Outmas(var a: mas);
implementation 
     
     Procedure Ismas(var a:mas);
var
    i: integer;
begin
for i:=1 to n do
begin
a[i]:=random(50);
end;end;
 
 procedure Outmas(var a:mas);
var 
    i: integer;
begin
  for i:=1 to n do
begin
Write(a[i],' ');
end;
writeln(a);
     end;
     
     procedure sortbubble(var a:mas; n:integer);
     var
   m:array [1..100] of Integer;
   i,j,S:Integer;
begin
        for j:=1 to n-1 do
      begin
       if m[j]>m[j+1]
       then begin
         S:=m[j];
         m[j]:=m[j+1];
         m[j+1]:=S;
       end;
     end;
    
end;
     procedure ProstVbIbirom(var a:mas; n:integer);
     var
   m:array [1..100] of Integer;
   i,j,k,S:Integer;
begin
  for i:=1 to N-1 do
     begin
       S:=m[i];
       k:=i;
         for j:=i+1 to N do
           if m[j]<S then begin
 
             k:=j;
             S:=m[j];
             end;
         m[k]:=m[i];
         m[i]:=S;
     end;
        
      end;
 
 
end.

program test;
uses sort;
const n=25;
var a:mas;
begin
     writeln('Исходный массив:');
     Ismas(a);
     Outmas(a);
 
ProstVbIbirom(a,n);
Outmas(a);
writeln;
 
Ismas(a);
Outmas(a);
Sortbubble(a,n);
Outmas(a);
end.

procedure sortbubble(var a:mas; n:integer);
var   i,j,S:Integer;
begin
        for j:=1 to n-1 do
      begin
       if a[j]>a[j+1]
       then begin
         S:=a[j];
         a[j]:=a[j+1];
         a[j+1]:=S;
       end;
     end;