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

Program x;
const n = 10; m = 10;
var ms: array [1..n, 1..m] of integer;
a,b,k,i: integer;
begin
for 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 (blt;gt;i)) or ((alt;gt;k) and (b=i)) then
   ms[a,b]:= -ms[a,b];
end.