помогите с информатикой 11 класс

Завтра допишу

program Svincova;

type
Student = class
private
surname: string;
name: string;
school: integer;
score: integer;
public
constructor Create(
surname: string;
name: string;
school: integer;
score: integer);
begin
Self.surname := surname;
Self.name := name;
Self.school := school;
Self.score := score;
end;
procedure Print();
begin
writeln('1: ', Self.surname, ' 2: ', Self.name, ' 3: ', Self.school, ' 4: ', Self.score);
end;
end;

const
FILE_NAME = 'svincova.txt';

var
f: text;
c: char;
n, i : integer;
input: string;
info: array[1..4] of string;
Students: array of Student;
midScore: real;

function ExplodeAndValid(input: string): boolean;
begin
input += ' ';
for var j := 1 to 4 do begin
info[j] := copy(input, 1, pos(' ', input, 1)-1);
delete(input, 1, pos(' ', input, 1));
end;
if (length(info[1]) > 20) or (length(info[2]) > 20)
or (strToInt(info[3]) < 1) or (strToInt(info[3]) > 99)
or (strToInt(info[4]) < 1) or (strToInt(info[4]) > 100) then
Result := false
else
Result := true;
end;

begin
write('Ввести данные самостоятельно? [y/n] ');
while (c <> 'y') and (c <> 'n') do
c:= ReadlnChar();
case c of
'y': begin
n := readlnInteger('Введите количество учеников: ');
setLength(Students, n+1);
writeln('Вводите информацию в формате:');
writeln('<Фамилия (до 20 символов) > <Имя (до 20 символов) > <Школа (1-99)> <Балл (1-100)>');
i := 1;
while i <= n do begin
write(i, ' ученик: ');
readln(input);
if not ExplodeAndValid(input) then begin
writeln('Некорректный ввод! Повторите..');
i -= 1;
end
else
Students[i] := new Student(
info[1],
info[2],
strToInt(info[3]),
strToInt(info[4]));
i += 1;
end;
end;
'n': begin
if fileExists(FILE_NAME) then begin
assign(f, FILE_NAME);
reset(f);
end
else
writeln('Файла ', FILE_NAME, ' не существует!');
i := 1;
while not eof(f) do begin
readln(f, input);
ExplodeAndValid(input);
setLength(Students, i+1);
Students[i] := new Student(
info[1],
info[2],
strToInt(info[3]),
strToInt(info[4]));
Students[i].Print();
i += 1;
end;
close(f);
end;
end;
for i := 1 to high(Students) do
midScore += Students[i].score;
midScore := midScore / i;
writeln(#10, 'Средний балл по району: ', midScore);
end.

Pascal?