Заменить все элементы строки с номером k и столбца с номером…

Program x; const n=10; m=10; var ms: array [1… n, 1… m] of integer; a,b,k,i: integer; beginfor a: =1 to n do for b: =1 to m do read (ms[a,b]); readln (k); readln (i); for a: =1 to n do for b: =1 to m do if (a=k) and (b<>i) or (a<>k) and (b=i) then ms[a,b]: =-ms[a,b]; end.