Увеличить все положительные элементы матрицы в 2 раза

programm fuck;
const
k = 20;
n = 25;
var
matrix : array [1..k,1..n] of integer;
i,j : integer;
begin
for i:= 1 to k do
  for j:=1 to n do
    if matrix[i,j] > 0 then matrix[i,j] := matrix[i,j]*2;
end;

uses crt;
const kmax=20;
      nmax=25;
var a:array[1..kmax,1..nmax] of integer;
    k,n,i,j:byte;
begin
randomize;
repeat
write('Количество строк до ',kmax,' k=');
read(k);
until k in [1..kmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to k do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
write('Нажмите Enter для продолжения');
readln;
writeln('Измененная матрица:');
for i:=1 to k do
 begin
  for j:=1 to n do
   begin
    if a[i,j]>0 then a[i,j]:=2*a[i,j];
    write(a[i,j]:4)
   end;
  writeln
 end;
end.

writeln('Измененная матрица:');
zm:=0;
for i:=1 to k do
 begin
  for j:=1 to n do
   begin
    if a[i,j]>0 then
     begin
      a[i,j]:=2*a[i,j];
      zm:=zm+1
     end;
    write(a[i,j]:4)
   end;
  writeln
 end;
 write('Количество замен=',zm);