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

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.