Помогите, пожалуйста. Нужно написать программу паскаль… 7,62. Даны натуральное…

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.