Вдвумерном массиве обнулить строку, содержащую отрицательные элементы

Var a:array[1..10,1..10] of real;i,j,l:integer;beginfor i:=1 to 10 do   begin    writeln;    for j:=1 to 10 do     begin       a[i,j]:=random(10)-1;       write(a[i,j],' ');     end;     end;  for i:=1 to 10 do  begin   for j:=1 to 10 do   if a[i,j]<0 then   begin   for l:=1 to 10 do   a[i,l]:=0;   end;   end;   writeln;for i:=1 to 10 do   begin    writeln;    for j:=1 to 10 do     begin       write(a[i,j],' ');     end;     end;     end.