ПОМОГИТЕ Кто знает Паскаль авс ПОЖАЛУЙСТА

Question

Дана матрица размером 5х5 элементов, случайным образом заполненная. Найти максимальное значение из элементов тех строк матрицы, среднее арифметическое которых больше 10 и меньше 30.

Ирина Теплова · Accepted Answer

Для начала найдём среднее арифметическое: 
function midd(i : integer) : real; 
var k,s : integer; 
begin 
s:=0; 
for k := 1 to 5 do s:=s+m [ i, k]; 
midd:=s / 5; 
end; 
И максимальный элемент в строке: 
function maxs( i : integer) :integer; 
var k : integer; 
begin 
maxs:=m[ i, 1]; 
for k := 2 to 5 do 
if m[ i,k] > maxs then maxs:= m[ i,k]; 
end; 
где m - тот самый массив. 
В главной программе: 
mаx:=0; 
for i:=1 to 5 do 
if (midd( i) > 10) and (midd( i) < 30) then 
if махs( i) > max then max := maxs( i); 
 
С точки зрения быстродействия конечно не очень рационально, как улучшить подумайте.