Работа со строками - PascalABC.NET (250457)

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

С клавиатуры вводится текст, который представляет собой список студентов группы с указанием фамилии, имени и отчества студента, которые разделены только одним пробелом; в качестве разделителя элементов списка используется запятая с пробелом: «Фамилия1 Имя1 Отчество1, Фамилия2 Имя2 Отчество2, …, ФамилияN ИмяN ОтчествоN». Требуется Вывести на экран фамилии, имена и отчества юношей.

Решение задачи: «Работа со строками»

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

var 
  i, vi : integer;
  s, st : string;
begin
  readln(s); s := s + ',';
  i := 1;
  repeat
    vi := PosEx(',', s, i);
    if vi > 0 then
    begin
      st := Copy(s, i, vi - i);
      if st[Length(st)] <> 'а' then Writeln(Trim(st));
    end;
    i := vi + 1;
  until i > Length(s);
end.

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

Вводим строку с помощью функции readln() и сохраняем её в переменной s.
Используя функцию PosEx(), ищем первое вхождение подстроки ','.
Если подстрока найдена, то сохраняем её в переменной st и удаляем из неё последний символ, если он равен 'а'.
Выводим полученную подстроку на экран с помощью функции Writeln().
Повторяем шаги 2-4, пока не будет пройдена вся строка.