Developing.ru

Решите задачу, используя записи.
Задание2.
Распечатать фамилии рабочих бригады начинающиеся с буквы А и С, с указанием их месячной зарплаты.

for i:=1 to length(workers) do
if workers.surname[1] in ['А','С'] then writeln (workers.surname, workers.salary);