Преобразовать массив по правилу

program z;
var i,j,l,n,m:integer;
w:array [1..10,1..10] of integer;
x:array [1..10] of integer;
begin
     writeln('Ввод кол-ва строк массива "W" и элементов массива "X"');
     readln(n);
     writeln('Ввод кол-ва столбцов массива "W"');
     readln(m);
     writeln('Ввод элементов массива "W"');
     for i:=1 to n do
         for j:=1 to m do
             begin
                  write('W[',i,',',j,']=');
                  readln(w[i,j]);
             end;
     writeln('Ввод элементов массива "X"');
     for i:=1 to n do
         begin
              write('X[',i,']=');
              readln(x[i]);
         end;
     writeln('Вывод элементов массива "W"');
     for i:=1 to n do
         begin
              for j:=1 to m do
                  write(w[i,j],' ');
              writeln;
         end;
     writeln('Вывод элементов массива "X"');
     write('x=( ');
     for i:=1 to n do
         write(x[i],' ');
     write(')');
     writeln;
     writeln('Введите номер строки массива "W"');
     readln(l);
     for i:=l to l do
         for j:=1 to m do
             begin
                  if w[i,j]>0
                     then
                         w[i,j]:=w[i,j]*x[i];
             end;
     writeln('Результат');
     for i:=1 to n do
         begin
              for j:=1 to m do
                  write(w[i,j],' ');
              writeln;
         end;
end.