Увеличить все положительные элементы массива на 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 begin
x[i,j]:=x[i,j]+5;
Writeln(x[i,j]); 
End;
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.

Program pr_1;
Uses crt;
Var x:array[1..100,1..100] of integer;
i,j,n,m,sum,nchet: integer;
Sr : real;
BEGIN
Clrscr;
Randomize;
Repeat
  Write('Vvedite kol-vo ctrok n = ');
  Readln(n);
Until ((n>0) and (n<101));
Repeat
  Write('Vvvedite kol-vo ctolbcov m = ');
  Readln(m);
Until ((m>0) and (m<101));
sum:=0;
For i:=1 to n do
  Begin
    For j:=1 to m do
      begin
        x[i,j]:=Random(150)-30;
        sum:=sum+x[i,j];
        Write(x[i,j],' | ')
      end;
    WriteLn;
  End;
Sr:=sum/(n*m);
Writeln('sred znach = ',Sr:0:2);
If ( (Sr > 50) and (Sr < 100) ) then
  Begin
    For i:=1 to n do
      Begin
        For j:=1 to m do
          begin
            If x[i,j] > 0 then x[i,j]:=x[i,j]+5;
            Write(x[i,j],' | ')
          end;
        WriteLn;
      End
  End
else
  Begin
    nchet:=0;
    For i:=1 to n do
      for j:=1 to m do
        If odd(x[i,j]) then nchet:= nchet+1;
    Writeln('nechetnih elementov=', nchet)
  End;
Readkey
End.

Program pr_1;
Uses crt;
Var x:array[1..100,1..100] of integer;
i,j,n,m,sum,nchet: integer;
Sr : real;
BEGIN
Clrscr;
Randomize;
Repeat
  Write('Vvedite kol-vo ctrok n = ');
  Readln(n);
Until ((n>0) and (n<101));
Repeat
  Write('Vvvedite kol-vo ctolbcov m = ');
  Readln(m);
Until ((m>0) and (m<101));
sum:=0;
For i:=1 to n do
  Begin
    For j:=1 to m do
      begin
        x[i,j]:=Random(150)-30;
        sum:=sum+x[i,j];
        Write(x[i,j],' | ')
      end;
    WriteLn;
  End;
Sr:=sum/(n*m);
Writeln('sred znach = ',Sr:0:2);
If ( (Sr > 50) and (Sr < 100) ) then
  Begin
    For i:=1 to n do
      Begin
        For j:=1 to m do
          begin
            If x[i,j] > 0 then x[i,j]:=x[i,j]+5;
            Write(x[i,j],' | ')
          end;
        WriteLn;
      End
  End
else
  Begin
    nchet:=0;
    For i:=1 to n do
      Begin
        nchet:=0;
        for j:=1 to m do
          begin
           If odd(x[i,j]) then nchet:= nchet+1
          end;
        WriteLn('Kol-vo ne4etnix elementov B CTPOKE ',i,' = ',nchet)
      End
  End;
Readkey
End.