Помогите с задачей по информатике.(Pascal)

program Hello;

var

 name, surname, form, input: string;

 arr_words: array of string;

begin

 writeln('Введите имя, фамилию и класс разделённые пробелом(Петров Егор 9-А): ');

 // 'Input name and form, separated by space(Petrov Egor 9-A)'

 read(input);

 arr_words := input.split(' ');

 surname := arr_words[0]; name := arr_words[1]; form := arr_words[2];

 writeln('Привет! ', surname, ' ', name, ' из ', form, ' класса!');

 // 'Hello! ', surname, ' ', name, ' from ', form, ' form!'

end.