Помогите составить программку в Pascal , что в белоснежной рамочке

Сколько всего может быть чисел?

Program zadacha; Var mas:array [1..100] of integer;     min,max,i,n:integer;begin Writeln ('Введите количество чисел'); Readln (n); For i:=1 to n do begin writeln ('Введите ',i,' число');                        Readln (mas[i]);                  end; Writeln ('Приобретенные числа '); for i:=1 to n do writeln (mas[i]);Max:=mas[i];For i:=2 to n do  if mas[i]gt;max then max:=mas[i];writeln ('Наибольшее число ',max);min:=mas[i];For i:=1 to n do if mas[i]lt;min then min:=mas[i];writeln ('Малое число ',min);end.