задача по матрице (Delphi)

[#Wolf#]

Помогите пожалуста написать программу.
С помощью генератора случайных чисел сформировать матрицу 7*7 целостных элементов, которые лежат в диапозоне [70..120]. В строках с нечетными номерами провести сортировку элементов по убыванию значений.Программу построить с использованием процедур и функций.

я немного начал делать...
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
type
matr=array [1..7,1..70] of integer;
procedure vvod(var a:matr);
var i,j:integer;
begin
for i:=1 to 7 do
for j:=1 to 7 do
readln(a[i,j]);
end;
procedure out(var a:matr);
var i,j:integer;
begin
for i:=1 to 7 do
for j:=1 to 7 do
write('a[',i,',',j,']= ');
end;