Пишу не по ТЕМЕ но попрошу помочь на информатику! Нужно создать программ в…

program pr1; uses crt; varm: array[1… 100] of integer; i,min,max,a,n,j: integer; beginwriteln ('введите количество элементов массива'); readln (a); for i: =1 to a doreadln (m[i]); max: =m[1]; min: =m[1]; for i: =1 to a dobeginif m[i]>=max then begin max: =m[i]; n: =i; end; if m[i] <= min then begin min: =m[i]; j: =i; end; end; writeln ('максимальный элемент ',max,' его позиция',n); writeln ('минимальный элемент',min,' его позиция ',j); readln; end.