Помогите пожалуйста написать программу в паскаль:

Question

Ввести с клавиатуры массив B2[N]. Определить максимальный элемент массива и его порядковый номер. N вводится с клавиатуры. 0< N <20.

Дмитрий Зайка · Accepted Answer

var i,n:integer; b2:array[1..19]of integer; 
begin 
repeat write('Введите размер массива (1..19): '); readln(n); until not(n in[1..19]); 
writeln('Введите значения элементов массива, разделяя их пробелами'); 
for i:=1 to n do read(b2[ i]); k:=1; 
for i:=1 to n do if b2[ i]>b2[ k] then k:=i; 
writeln('max: b2[',k,']=',b2[ k]); readln 
end.