Помогите срочно надо. Вывести массив М девяти элементов. Вычислить разность…

const n=9; function Max (a: array[1… n] of integer): integer; var m, i: integer; begin m: =a[1]; for i: =2 to n do if m< a[i] then m: =a[i]; Max: =m; end; function Min (a: array[1… n] of integer): integer; var m, i: integer; begin m: =a[1]; for i: =2 to n do if m > a[i] then m: =a[i]; Min: =m; end; var a: array[1… n] of integer; i: integer; begin randomize; writeln ('Исходный массив: '); for i: =1 to n do begin a[i]: =random (21) — 10; write (a[i], '); end; writeln; writeln ('Max=', Max (a); writeln ('Min=', Min (a); writeln ('Max — Min=', Max (a) — Min (a); end.