помогите пожалуйста-20,,,,,,,,,,,

Const
  n=16;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  for i:=1 to n do
    a[i]:=0;
  while True do
    begin
    read(k);
    if (klt;1) or (kgt;n) then break;
    Inc(a[k]);
    end;
  k:=1;
  for i:=2 to n do
    if a[i]gt;a[k] then k:=i;
  Writeln(k)
end.


Вводим пока не будет обозначено значение меньше 1 либо больше 16.