Дан двумерный массив размерностью n*m. Увеличить в 2 раза все элементы , лежащие в главной диагонали !!!!!!!!!!!!!!!!!! Плииииз

const T=50;
 var a: array [1..T,1..T] of integer;
 i,j,n,m:integer;
 begin
 write(Введите n: );
 readln(n);
 write(Введите m: );
 readln(m);
 for i:=1 to n do
 for j:=1 to m do readln(a[i,j]);
 for i:=1 to n do
 for j:=1 to m do if i=j then a[i,j]:=a[i,j]*2;
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j], );
  writeln;
 end;
 end.