Сформировать двумерный массив А размером 5*7 с помощью генератора случайных чисел и вывести элементы массива на экран. Найти суммы положительных элементов каждой строки матрицы и записать их в одномерный массив В. Вывести элементы массива В на экран.

Язык какой? не работает

uses crt; var e:array[1..3,1..7] of integer; s,max,n,m:integer; index,sum:integer; procedure max_el; begin max:=e[1,1]; sum:=0; index:=0; for n:=1 to 3 do begin for m:=1 to 7 do begin if e[n,m]>max then beginmax:=e[n,m]; index:=m; end; end; end; for n:=1 to 3 do begin if e[n,index]<0 then beginsum:=sum+e[n,index]; end; end; writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum); end; begin clrscr; writeln('elementy massiva'); writeln;randomize; for n:=1 to 3 do begin for m:=1 to 7 do begine[n,m]:=random(100) -50;write('',e[n,m],' '); end; writeln; end;writeln; writeln; max_el; readkey; end.