Составить программу на Паскале.Двумерный массив А[4;4] заполнен случайными числами.Посчитать сумму элементов каждой строки с помощью процедуры.

const n=4;var a:array[1..n,1..n] of integer;i,j,s:integer;procedure sum(k:integer; var s:integer);var j:integer;begins:=0;for j:=1 to n do s:=s+a[k,j];end;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to n do  begin   a[i,j]:=random(100);   write(a[i,j]:4);  end;  writeln; end;for i:=1 to n do begin write(i,'-я строка: '); sum(i,s); writeln('s = ',s); end;end.Пример:Исходный массив:60 78 10 5165 90 65 2435 97 6 9110 95 35 151-я строка: s = 1992-я строка: s = 2443-я строка: s = 2294-я строка: s = 155