Написать программу, которая по номеру дня недели (целому числу от 1 до 7) выдает в качестве результата количество уроков в вашем классе в этот день — Pascal(Паскаль)

readln(k);
case k of
  1:
    writeln(arr[1]);
  2:
    writeln(arr[2]);
  3:
    writeln(arr[3]);
  4:
    writeln(arr[4]);
  5:
    writeln(arr[5]);
  6:
    writeln(arr[6]);
  7:
    writeln(arr[7])
else
  writeln('Ошибка');
end;