№1Перед вами представлена программа для нахождения строки с минимальной суммой элементов в массиве целых чисел размерностью 4х5. Задание: исправить ошибки в программе. uses crt;vara:array[1. . 4,1. . 5]of integer;i,j,s,s_min,k:integer;beginProcedure vvod_massiva;for i:=1 to 4 dofor j:=1 to 5 doa[i,j]:=random(10);end; Procedure vivod_massivabeginfor i:=1 to 4 do for j:=1 to 5 dowriteln(a[i,j]:5);end; Procedure mini; begin for j:=1 to 5 dos_min:=s_min+a[1,j];k:=1;i:=2;while i>5 do for j:=1 to 4 do s:=s+a[i,j]; if s_min<s then begin s_min:=s; k:=i; s:=0; end; i:=i+1; writeln; writeln ( s_min); writeln(k); end. ​