Написать программку в паскале: Дано 6 учеников, 3 предмета(физика , матем,

картина не читабельна, и вообщем код нужно выкладывать в тексте

кстати на картинке написан абсурд а не шаблон, все не считая русских фраз использовать не получится

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программка не работает, обновите версию!

begin
  Writeln('Введите построчно оценки 6 воспитанников');
  Writeln('Порядок ввода оценок: физика, математика, российский');
  var d:=ReadMatrInteger(6,3);
  Writeln('Средние баллы по предметам');
  Writeln('Физика ',d.Col(0).Average:0:2,
    ', математика ',d.Col(1).Average:0:2,
    ', русский ',d.Col(2).Average:0:2)
end.

Пример
Введите построчно оценки 6 учеников
Порядок ввода оценок: физика, математика, русский
4 5 4
3 4 4
5 4 5
3 3 4
5 5 5
4 4 3
Средние баллы по предметам
Физика 4.00, математика 4.17, российский 4.17

 В общем я написал прогу, но у неё куча изъянов
1)нет охраны от "дурачины";
2)Имя вводится только числовое;
3)Вероятно код можно упростить;