задачка на паскале ABC!
Нужно решить с помощью процедур !
Задание----Найти максимальный элемент в массиве !

Чё как, с инета?

нужна еще одна процедура помогите

// PascalABC.NET 3.0, сборка 1088const  nn=100;type  tA=array[1..nn] of integer;procedure MaxElem(n:integer; var m:ta; var mx:integer);var  i:integer;begin  mx:=m[1];  for i:=2 to n do    if m[i]>mx then mx:=m[i]end;var  a:tA;  i,n,amax:integer;begin  Write('Введите количество элементов в массиве: '); Read(n);  Randomize;  Writeln('Элементы массива');  for i := 1 to n do  begin    a[i]:=Random(101)-50;    Write(a[i],' ')  end;  Writeln;  MaxElem(n,a,amax);  Writeln('Максимальный элемент равен ',amax);end.Тестовое решение:Введите количество элементов в массиве: 15Элементы массива-8 41 7 -40 -1 1 -18 5 -28 26 50 13 -42 39 -43 Максимальный элемент равен 50