Умножить l-й столбец матрицы А на заданное число

Var
a:array [1..10,1..10]of integer;
i,j,m:integer;
begin
randomize;
for i:=1 to 10 do
for j :=1 to 10 do
 a[i,j]:=random(10)+1;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(a[i,j],' ');
writeln;
end;
writeln('введите число на которое надо умножить');
readln(m);
for i:= 1 to 4 do
a[i,1]:=a[i,1]*m;
for i:=1 to 4 do
begin for j:=1 to 4 do
write(a[i,j],' ');
writeln;
end;
end.

var a,c:array [1..10,1..10]of integer;
    n,i,j,m,k,p,q,s:integer;
begin
randomize;
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Исходная матрица A');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=1+random(30);
    write(a[i,j]:4);
   end;
  writeln;
 end;
repeat
write('Введите номер столбца, котороый нужно умножить k=');
readln(k);
until k in [1..n];
write('введите число на которое надо умножить m=');
readln(m);
writeln('Умножние столбца ',k,' на число ',m);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j=k then a[i,k]:=a[i,k]*m;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Матрица С');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=a[j,i];
    write(c[i,j]:4);
   end;
  writeln;
 end;
k:=0;
i:=1;
while(i<=n)and(k=0) do
 begin
  j:=1;
  while(j<=n)and(k=0) do
   begin
    p:=1;
    while(p<=n)and(k=0) do
     begin
      q:=1;
      while(q<=n)and(k=0) do
      if (p<>i)and(q<>j)and(a[i,j]=a[p,q])then k:=1
      else inc(q);
      if k=0 then inc(p);
     end;
    if k=0 then inc(j);
   end;
  if k=0 then inc(i);
 end;
if k=1 then
 begin
  writeln('В матрице С есть одинаковые числа');
  s:=0;
  for i:=1 to n do
  s:=s+a[i,i];
  write('Ее след=',s);
 end
else
 begin
  writeln('В матрице С нет одинаковых чисел');
  s:=0;
  for i:=1 to n do
  s:=s+a[i,n-i+1];
  write('Сумма элементов побочной диагонали=',s);
 end;
end.