Написать программу (в Pascal) и составить блок-схему по задаче: В двумерном массиве…

АлгоритмВвод массива A[n,m]Max: =A[1,1]; k: =1; p: =1; s: =0; АлгоритмВвод массива A[n,m]Max: =A[1,1]; k: =1; p: =1; c: =0; Цикл по i от 1 до n (по строкам) Цикл по j от 1 до m (по столбцам) Если (A (i, j)=Max) and (i<>k) or (j<>p) То c: =c+1; Если (A (i, j) > Max) То k: =i; p: =j; c: =1; Max: =A (i, j); Конец ЕслиКонец цикла по столбцам Конец цикла по строкамВывод «Элемент ", Max, " встречается ", c, " раз"Конец. Программаvar A: array of array of integervar i,j,m,n,k,p,s,Max: integerBEGINuses crt; clrscr; write ('Vvedite kol-vo strok: '); readln (n); write ('Vvedite kol-vo stolbtsov: '); readln (m); setlength (A,n,m); for i=1 to n dobeginfor j=1 to m dobeginwrite ('Vvedite element vassiva: '); readln (A[i,j]); end; end; Max: =A[1,1]; k: =1; p: =1; c: =0; for i=1 to n dobeginfor j=1 to m dobeginif (A (i, j)=Max) and (i<>k) or (j<>p) then c: =c+1; if (A (i, j) > Max) thenbegin k: =i; p: =j; c: =1; Max: =A (i, j); end; end; end; write ('Element ', Max, ' vstrechaetsya ', c, ' raz'); END.