Упорядочить элементы нечетных строк матрицы

uses crt;
type mas=array [1..20,1..20] of integer;
var a:mas;var s1,m,q,s,i,j,k:integer;
 
procedure vvod;
begin
 writeln('Введите размерность квадратной матрицы, i=j ');
 readln(m);
  for i:=1 to m do
  for j:=1 to m do
  a[i,j]:=random(10);
 end;
 
 procedure vivod;
 begin
  for i:=1 to m do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
  end;
 end;
 
{упорядочивание элементов нечетных строк матрицы.}
 procedure sort;
 begin
 
end;
writeln;
end;
{основная программа}
 begin
writeln;
while q<4 do
begin
writeln('<<<<<<<<<<MENU>>>>>>>>>>>');
writeln('1. Создание массива');
writeln('2. Вывод массива');
writeln('3. Выполнения условия 1');
writeln('4. Выход');
writeln('Ваш выбор');
readln(q);
case q of
1:vvod;
2: vivod;
3:sort;
end;end;end.

procedure vvod;
begin
 Randomize;
  write('ââåäèòå êîë-âî ñòðîê='); readln (n);
  write('ââåäèòå êîë-âî ñòîëáöîâ=');  readln (m);
  write('ââåäèòå îò êàêîãî ÷èñëà ãåíåðèðîâàòü=');  readln (min);
  write('ââåäèòå äî êàêîãî ÷èñëà ãåíåðèðîâàòü=');  readln (max);
  min:=-min;
  writeln('isxodniy massiv');
      For i:=1 to n do begin
        For j:=1 to m do begin
        a[i,j]:=random(min+max+1)-min;
        write(a[i,j]:4);
        end;
      writeln;
      end;
end;
procedure vivod;
begin
 For i:=1 to n do begin
        For j:=1 to m do begin
        write(a[i,j]:4);
        end;
      writeln;
      end;
end;