1. Дан двумерный массив Х(6,6). Найти минимальное положительное нечетное
значение каждого столбца массива и записать их в одномерный массив С.
2. Выполнить сортировку элементов массива Х(6,6), расположенных выше
побочной диагонали матрицы, по возрастанию методом обменной сортировки.

Program KurRab;
Type 
matrix = array [1..6, 1..6] of integer;
minmatrix = array [1..6] of integer;
type strmenu = record
  x: integer;
  s: string[24];
  end;
Const
  kol=4;
  mas:array[1..kol] of strmenu = ((x:6;s:'Ввод данных'),(x:25;s:'Сортировка'),(x:45;s:'Вывод данных'),(x:63;s:'Выход'));
Var
  n,i,j,e:integer;
  ch: char;
        a:matrix;
  min:minmatrix; 
 
procedure swap(var x,y: integer);
  var t:integer;
  begin
  t:= x;
  x:= y;
  y:= t;  
  end;
 
procedure inputData;
  Var
  inputstage: char;
  begin
  writeln('Ввести автоматически? Y/N');
  readln(inputstage);
  clrscr;
  if((inputstage = #89) or (inputstage = #121)) then
  begin
  for var i :=1 to 6 do
        for var j :=1 to 6 do 
        a [i,j]:= random(1000);
  end
  else
  begin
  for var i :=1 to 6 do
        for var j :=1 to 6 do
  clrscr;
  write('Введите число для cтроки ',i, ' столбца ',j);
        readln(a [i,j]);
  end;
  end;
 
procedure sortData();
  begin
  for var i :=1 to 6 do
  min[i] := a[i][1];
        for var j :=2 to 6 do 
  if min[i] > a[i][j] then min[i]:= a[i][j];
 
  e:= 6;
  for var i:=1 to 5 do
  dec(e);
  for var j:=1 to 6-j do
  if ((a[i][j] > a[i][j+1]) and (not((j >= e) and (j <= 6)))) then swap(a[i][j], a[i][j+1]);
  end;
 
procedure outputData;
  begin
    for var i :=1 to 6 do
    writeln('Минимальные значение строки ' + i + ' : ' + min[i]);
  writeln();
  for var i :=1 to 6 do
  writeln();
        for var j :=1 to 6 do 
  writeln(a[i][j]);
  
  end;

Begin
n:=1;
randomize;
repeat
  textattr:=7;
  clrscr;
  for i :=1 to kol do
    begin
    gotoxy(mas[i].x,3);
    write(mas[i].s);
    end;
textattr:=87;
gotoxy(mas[n].x,3);
write(mas[n].s);
ch:=readkey;
case ch of
#13: case n of
    1: inputData;
    2: sortData;
    3: outputData;
  end;
#0:begin
ch:=readkey;
case ch of
#77: if n<kol then inc(n) else n:=1;
#75: if n>1 then dec(n) else n:= kol;
end;
end;
end;
until(ch=#13)and(n=4)or(ch=#27);
testattr:=7;
clrscr;
End.