Сложение строк матрицы поэлементно

Var A:array[1..100,1..100] of integer; p,i,j,n,m,k,t:integer;
Begin
Randomize;
Write('n='); Readln(n);{ввод кол-ва строк}
Write('m='); Readln(m);{ввод кол-ва столбцов}
For i:=1 to n do
 Begin
  For j:=1 to m do
   Begin
    A[i,j]:=random(21);{генерация произвольных значений элементов массива}
    Write(A[i,j]:4);
   End;
  Writeln;
 End;
Write('t='); Readln(t);{ввод номера строки, которую нужно умножить(разделить}
k:=random(m)+1;{генерируем произвольный индекс}
p:=A[t,k];{берем произвольный элемент из этой строки}
Writeln('k=',p);{выводим выбранный элемент}
For i:=1 to n do
 Begin
  For j:=1 to m do
   Begin
    If i=t then A[i,j]:=A[i,j]*p;{умножаем элементы строки(в случае с делением используйте div}
    Write(A[i,j]:4);
   End;
  Writeln;
 End;
End.

Var A:array[1..100,1..100] of integer; i,j,n,m,k,p,t1,t2:integer;
Begin
Randomize;
Write('n='); Readln(n);
Write('m='); Readln(m);
For i:=1 to n do
 Begin
  For j:=1 to m do
   Begin
    A[i,j]:=random(21);
    Write(A[i,j]:4);
   End;
  Writeln;
 End;
 
Write('t1='); Readln(t1);{ввод строки, которую надо умножить}
p:=random(m)+1;
k:=A[t1,p];
For j:=1 to m do
 A[t1,j]:=A[t1,j]*k;{умножаем строку}
Write('t2='); Readln(t2);{ввод строки, к которой нужно прибавить умноженную}
For j:=1 to m do
 A[t2,j]:=A[t2,j]+A[t1,j];{складываем элементы заданных строк}
Writeln('k=',k);{вывод элемента, на который умножали 1-ую строку}
 
For i:=1 to n do
 Begin
  For j:=1 to m do
   Begin
    Write(A[i,j]:4);
   End;
  Writeln;
 End;
End.