Распечатать фамилии рабочих бригады, начинающихся с букв А и С, с указанием их месячной зарплаты — Pascal(Паскаль)

const maxn = 50;
 
type
  TEmp = record
   LastName: string;
   wage: integer;
  end;
 
var Emps: array [1..maxn] of TEmp;
    i, n: integer;
 
begin
 SetConsoleCP(1251);
 SetConsoleOutputCP(1251);
 writeln('Количество рабочих в бригаде? ');
 readln(n);
 for i := 1 to n do
   begin
     writeln('Фамилия: ');
     readln(Emps[i].LastName);
     writeln('Зарплата: ');
     readln(Emps[i].wage)
   end;
 
 for i := 1 to n do
  begin
    if (Emps[i].LastName[1] = 'А') or (Emps[i].LastName[1] = 'С') then
     begin
       writeln('Фамилия ',emps[i].LastName);
       writeln('Зарплата ',emps[i].wage)
     end;
  end;
 readln
 
end.