В масиве целых чисел нужно заменить последний элемент каждой строки сумой элементов этой строки

{Находим суммы и записываем в новый массив}
uses crt;
var
   n,m,i,j,sum,x:integer;
   a:array[1..50,1..50] of integer; {исходный массив}
   b:array[1..50]of integer;{массив для предварительного результата}
begin
clrscr;
randomize;
write('Kolichestvo strok n=');
readln(n);
write('Kolichestvo stolbcov m=');
readln(m);
writeln('Matrica:');{создание матрицы}
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:4);
      end;
    writeln;
  end;
for i:=1 to n do
  begin
    Sum:=0;
    for j:=1 to m do
      Sum:=Sum+a[i,j]; {считаем суммы в строках}
    a[i,n]:=sum;   {создаем из них массив}
  end;
  writeln('Изменный массив:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        write(a[i,j]:4);
      end;
    writeln;
  end;
 
readln
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
   n,m,i,j,sum,x:integer;
   a:array[1..50,1..50] of integer; {исходный массив}
   b:array[1..50]of integer;{массив для предварительного результата}
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
{Находим суммы и записываем в новый массив}
 
randomize;
write('Kolichestvo strok n=');
readln(n);
write('Kolichestvo stolbcov m=');
readln(m);
writeln('Matrica:');{создание матрицы}
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:4);
      end;
    writeln;
  end;
for i:=1 to n do
  begin
    Sum:=0;
    for j:=1 to m do
      Sum:=Sum+a[i,j]; {считаем суммы в строках}
    a[i,n]:=sum;   {создаем из них массив}
  end;
  writeln('Изменный массив:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        write(a[i,j]:4);
      end;
    writeln;
  end;
 
readln
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Math;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  n,sum,i,j:integer;
begin
  n:=StringGrid1.ColCount - 1;
  for j := 1 to StringGrid1.ColCount - 1 do
    begin
      sum:=0;
      for i := 1 to StringGrid1.RowCount - 1 do
        begin
          sum:=sum+StrToInt(StringGrid1.Cells[i,j]);
        end;
      StringGrid1.Cells[n,j]:=IntToStr(sum);
    end;
  StringGrid1.Refresh;
end;
 
procedure TForm1.FormShow(Sender: TObject);
var
  i,j:integer;
begin
  StringGrid1.ColCount:=7;
  StringGrid1.RowCount:=7;
  for I := 1 to StringGrid1.ColCount - 1 do
    for j := 1 to StringGrid1.RowCount - 1 do
      begin
        StringGrid1.Cells[i,j]:=IntToStr(RandomRange(0,3));
      end;
end;
 
end.