Помогите, пожалуйста. Нужно написать программу паскаль.. 7.62. Даны натуральное число n и целые числа a1, a2, a3, …a9. Найти: а) номер максимального из чисел ai,. Если чисел с максимальным значением несколько, то должен быть найден номер последнего из них; б) номер минимального из чисел ai,. Если чисел с минимальным значением несколько, то должен быть найден номер первого из них;

program asd;uses crt;var i:integer; a: array[1..9] of integer; naibnum:integer; naib:integer; naim:integer; naimnum:integer;beginwriteln('Вводите цифры');for i:=1 to 9 do begin readln(a[i]); if i = 1 then naim:=a[i]; if i = 1 then naib:=a[i]; if a[i] < naim then begin naim:=a[i]; naimnum:=i; end; if a[i] > naib then begin naib:=a[i]; naibnum:=i; end; end; writeln('Наименьшее:',naim, ' номер:', naimnum); writeln('Наибольшее:',naib, ' номер:', naibnum);end.