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

repeat
readln(c);
case c of
1:vvod massiva;
2: vivod massiva;
3:sortirovka;
end;
until c=4;

Program Zadacha;
Uses Crt;
Const
n=15;
Type
mas=array[1..n]of integer;
Var
A:mas;
x,k,l:byte;
oper:char;
number:byte;
sum:integer;
sred:real;
c:integer;
 
Procedure Zapolnenie(n:integer; Var A:mas);
Var
i:integer;
Begin
For i:=1 to n do
A[i]:=random(100)+1;
End;
 
Procedure Vivod(n:integer;A:mas);
Var
i:integer;
Begin
For i:=1 to n do
Write(A[i]:4);
End;
BEGIN
ClrScr;
TextColor(2);
Writeln('0-Выход');
Writeln('1-Создание массива');
Writeln('2-Вывод массива');
Writeln('3-Сортировка простым выбором');
Repeat
.....
End;
Until
oper='0';
ReadKey;
END.

{сортировка по возрастанию выбором минимального элемента}
procedure Sort(var v:Tmas;n:byte);
var i,j,nmin,buf:integer;
begin
for i:=1 to n-1 do
 begin
  nmin:=i;
  for j:=i+1 to n do
  if v[j]<v[nmin] then nmin:=j;
  buf:=v[i];
  v[i]:=v[nmin];
  v[nmin]:=buf;
 end;
end;

uses crt;
type tmas=array[1..100] of integer;
 
procedure InMas(var v:tmas; var n:byte);
var i:byte;
begin
Randomize;
repeat
Write('n=');
Readln(n);
until n in [1..100];
for i:=1 to n do
 v[i]:=random(20)-10;
end;
 
procedure OutMas(v:tmas; n:byte);
var i:byte;
begin
for i:=1 to n do
 Write(v[i],'  ');
end;
 
procedure Sort(var v:Tmas;n:byte);
var i,j,nmin,buf:integer;
begin
for i:=1 to n-1 do
 begin
  nmin:=i;
  for j:=i+1 to n do
  if v[j]<v[nmin] then nmin:=j;
  buf:=v[i];
  v[i]:=v[nmin];
  v[nmin]:=buf;
 end;
end;
 
procedure Menu;
begin
Writeln('1. InMas');
Writeln('2. OutMas');
Writeln('3. Sort');
Writeln('4. Exit');
end;
 
var v:tmas;
    k,ch:byte;
begin
ClrScr;
repeat
Menu;
Readln(ch);
case ch of
  1: InMas(v,k);
  2: OutMas(v,k);
  3: Sort(v,k);
 end;
until ch=4;
Readln;
end.