Массив в паскаль, сортировка и отыскание элементов в строках, задача, Помогите решить задачку, у меня уже руки опустились:( Опции

[kirik67]

Добрый день! Прошу помочь с решением. Задача: Если среднее арифметическое элементов массива x(n<m) больше 50, но меньше 100, то увеличить все положительные элементы на 5, иначе- найти количество нечетных элементов в каждой строке.

Program pr_1;
Uses crt; 
Var x:array[1..100,1..100] of integer;
I,j,k,m,n,z,nchet: integer;
Sr,sum: real;
Begin 
Clrscr;
Writeln('vvod n');
Read(n);
Writeln('vvod m');
Read(m);
Begin
Writeln('vvedite element massiva');
For i:=1 to n do
For j:=1 to m do
Readln(x[i,j]);
End;
For i:=1 to n do
For j:=1 to m do
Begin 
K:=k+1;
Sum:=sum+x[i,j];
End;
Sr:=sum*k;
Writeln('sred znach=',sr);
Begin
If (x[i,j]>0) and (x[i,j]<100) then
Begin
For i:=1 to n do
For j:=1 to m do
Begin
If k>0 then
Writeln(x[i,j]); 
End;
End
Else
For i:=1 to n do
Begin
If (x[i,j] mod 2)> 0 then 
nchet:= nchet+1;
Writeln('nechetnih elementov=', nchet);
End;
End;
Readln;
End.

Не могу понять, почему не получается! Буду очень благодарен!