Нужно написать программу в паскале - Pascal ABC

Формулировка задачи:

Нужно создать программу в паскале, которая будет находить среднее арифметическое оценки. То есть, например (4+5+3)/3, НО! пользователь не модет вводить числа до 0 и 0, и больше 5 (т.к таких оценок нет), и он может вводить люьое количество цифр(оценок), не как у меня в примерн. Также он должен написать свою фамилию и имя с помощью оператора char (вроде). Для программы нужен цикл for do, но это неточно

Решение задачи: «Нужно написать программу в паскале»

Листинг программы

var s:string;
    n,i,o:integer;
    sr:real;
begin
writeln('Введите вашу фамилию');
readln(s);
repeat
write('Введите количество оценок n>1 n=');
readln(n);
until n>1;
writeln('Введите ',n,' оценок от 1 до 5');
sr:=0;
for i:=1 to n do
 begin
  repeat
  write('Оценка ',i,'=');
  readln(o);
  until o in [1..5];
  sr:=sr+o;
 end;
write('Средняя оценка=',sr/n:0:1)
end.

Объяснение кода листинга программы

Переменная s используется для хранения фамилии пользователя.
Переменные n, i и o используются для подсчета количества оценок и их значений.
Переменная sr используется для хранения суммы всех оценок.
Пользователю предлагается ввести свою фамилию.
Пользователю предлагается ввести количество оценок (n).
Пользователю предлагается ввести оценки от 1 до 5.
Используется цикл для подсчета суммы оценок.
Выводится средняя оценка.