Создайте программку в которой в одномерном массиве исполняется поиск наибольшего, малого

Pascal program massive; var a: array [1..100] of integer; i, n, k, m, min, max: integer; begin k=0; m=0; writeln(Введите n); readln(n); writeln(Введите ,n, элементов массива); for i:=1 to n do read(a[i]); min:=a[1]; max:=a[1]; for i:=1 to n do begin if a[i]gt;max then max:=a[i]; if a[i]0 then k:=k+1; if a[i]lt;0 then m:=m+1; end; writeln(min=, min, max=, max, Количество отрицательных=,m, Количество положительных=, k); readln end.