Записи, ввод и поиск.

[SATI]

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

[Хыиуду]

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