Программа обработки одномерного массива

Program LR1;
Uses Crt;
Const
   n=5;
Type
  mas=array[0.. n] of integer;
var
  a: mas;
  nom: integer;
 
{Ввод значений массива с клавиатуры и запись в файл}
Procedure inputtofile (var a: mas);
Var
 i: integer;
 F1: file of integer; {файловая переменная}
begin
  for i:=1 to n do
  begin
  write('a[',i,']=');
  readln(a[i])
  end ;
  assign (F1, 'd:\mas.txt');
  rewrite (F1);   {открываем файл F2 для записи}
  for i:=1 to n do
    write(F1,a[i]); {запись элемента массива в файл F2}
  close(F1);
end;
 
{Генерация значений массива с помощью датчика случайных чисел}
Procedure generation (var a: mas);
Var
 i: integer;
begin
  for i:=1 to n do
   a[i]:=-25+random(99);
end;
 
{Чтение данных из файла в массив }
Procedure fromfile (var a: mas);
Var
  i: integer;
  F1: file of integer; { файловая переменная }
begin
  assign (F1, 'd:\mas.txt');
  reset (F1);   {открываем файл F2 для чтения}
  for i:=1 to n do
    read(F1,a[i]); { чтение в массив данных из файла F2}
  close(F1);
end ;
 
{Вывод содержимого массива на экран}
Procedure output (var a: mas);
Var
  i: integer;
begin
for i:=1 to 26 do  write ('-');
  writeln;
  writeln('     i    |     a(i)      ');
  for i:=1 to 26 do  write ('-');
  writeln;
  for i:=1 to n do
  writeln('     ',i,'    |','      ',a[i],'     ');
  for i:=1 to 26 do  write ('-');
  writelnend;
 
{Сортировка массива методом выбора}
Procedure sortsel (var a: mas);
Var
 i, j, k, x: integer;
begin
      for i:=1 to n-1 Do
      begin
            x:=a[i]; k:=i;
            for j:=i+1 to n do
            if x>a[j] then
            begin
                  k:=j; x:=a[j];
            end;
            a[k]:=a[i]; a[i]:=x;
      end
end;
 
{Сортировка массива методом вставки}
Procedure sortins (var a: mas);
Var
 i, j, x: integer;
begin
         for i:=2 to n do
         begin
            x:=a[i]; a[0]:=x; j:=i-1;
            while x<a[j] do
            begin
               a[j+1]:=a[j]; j:=j-1;
            end;
            a[j+1]:=x
         end
 
end;
 
{Сортировка массива методом обмена}
Procedure sortexchange (var a: mas);
Var
 i, j, x: integer;
begin
      for i:=2 to n do
      begin
            for j:=n downTo i do
            If a[j-1]>a[j] then
            begin
               x:=a[j-1]; a[j-1]:=a[j]; a[j]:=x
            end
      end
 
end;
 
{Головной модуль}
Begin
while nom<>8 do
begin
writeln (' Выберите пункт меню');
writeln('1. Ввод значений массива с клавиатуры и запись в файл');
writeln('2. Генерация значений массива с помощью датчика случайных чисел');
writeln('3. Чтение данных из файла в массив');
writeln('4. Вывод содержимого массива на экран');
writeln('5. Сортировка массива методом выбора');
writeln('6. Сортировка массива методом вставки');
writeln('7. Сортировка массива методом обмена');
writeln('8. Выход');
read(nom);
  Case nom of
       1:  inputtofile(a);
       2:  generation(a);
       3:  fromfile(a);
       4:  output(a);
       5:  sortsel(a);
       6:  sortins(a);
       7:  sortexchange(a);
end
end
end.