Дана матрица А(5х3). Найти сумму для элементов 4 строки по формуле

uses crt;
var a:array[1..5,1..3] of integer;
    sum,i,j:integer;
begin
  clrscr;
  randomize;
  sum:=0;
  For i:=1 to 5 do Begin
    For j:=1 to 3 do Begin
       a[i,j]:=Random(21);
       write(a[i,j]:3);
       if i=4 then sum:=sum+a[i,j];
    End;
    writeln;
  End;
  writeln('сумма чисел четвёртой сроки равна: ',sum);
  writeln('новый массив: ');
  writeln;
  a[4,2]:=sum;
  For i:=1 to 5 do begin
    For j:=1 to 3 do write(a[i,j]:3);
    writeln;
  end;
  readln;
end.

uses crt;
var a:array[1..5,1..3] of Real;
    i,j:integer;
    sum:real;
begin
  clrscr;
  randomize;
  sum:=0;
  For i:=1 to 5 do Begin
    For j:=1 to 3 do Begin
       write('введите А[',i,',',j,'] - '); readln(a[i,j]);
       if i=4 then sum:=sum+(5+2*j*a[i,j])/10;
    End;
    writeln;
  End;
  writeln('сумма чисел четвёртой сроки равна: ',sum:5:5);
  writeln('новый массив: ');
  writeln;
  a[4,2]:=sum;
  For i:=1 to 5 do begin
    For j:=1 to 3 do write(a[i,j]:3:3);
    writeln;
  end;
  readln;
end.