Составить программу, которая по первой букве профессии или номеру в списке распечатает профессию и заработную плату

program Zadanie139;
 
type
  TProfessionString = record
    Number: integer;
    NameProfession: string[20];
    Salary: real;
  end;
  TProfessionTable = array[1..4] of TProfessionString;
 
 
var
  i: integer;  // Вспомогательная переменная для организации циклов.
  v: integer; // Вспомогательная переменная для организации выбора.
  numberlist: integer; // Переменная для хранения значения номера списка профессий.
  flag: boolean;  //   Вспомогательная переменная для организации корректного ответа.
  CharProf: string;  // Переменная для хранения значения первой буквы в наименовании профессии.
  RealProfTable: TProfessionTable = ((Number: 1; NameProfession: 'столяр'; Salary: 2000 ),
                                     (Number: 2; NameProfession: 'сварщик'; Salary: 3000 ),
                                     (Number: 3; NameProfession: 'шофер'; Salary: 2500 ),
                                     (Number: 4; NameProfession: 'бухгалтер '; Salary: 3500 ));
 
begin
  flag:= false;
  Writeln('Список профессий и зарплат:');
  Writeln('Номер':10,'Название профессии':20,'Зарплата':10);
  for i:= 1 to 4 do
    begin
      Writeln(RealProfTable[i].Number:10, RealProfTable[i].NameProfession:20, RealProfTable[i].Salary:10:2);
    end;
  Writeln('Выберете по какому критерию будет осуществлен выбор:');
  Writeln('Введите цифру 1, если будете выбирать по номеру в списке.');
  Writeln('Введите цифру 2, если будете выбирать по первой букве наименования профессии.');
  Writeln('Введите цифру 3, если хотите выйти из программы.');
  Readln(v);
  case v of
  1: begin
       Writeln('Введите номер профессии:');
       Readln(numberlist);
       for i:= 1 to high(RealProfTable) do
         if RealProfTable[i].Number = numberlist then
           begin
             Writeln(RealProfTable[i].Number:10, RealProfTable[i].NameProfession:20, RealProfTable[i].Salary:10:2);
             flag:= true;
           end;
       if not flag then
         Writeln('В списке нет профессии с таким номером.');
     end;
  2: begin
       Writeln('Введите первую букву профессии:');
       Readln(CharProf);
       for i:= 1 to high(RealProfTable) do
         if copy(RealProfTable[i].NameProfession,1,1) = CharProf then
           begin
             Writeln(RealProfTable[i].Number:10, RealProfTable[i].NameProfession:20, RealProfTable[i].Salary:10:2);
             flag:= true;
           end;
       if not flag then
         Writeln('В списке нет профессии с такой первой буквой.');
     end;
  3: begin
       exit;
     end;
  end;
 
  Readln;
end.

  if NumberList in [Low(RealProfTable)..High(RealProfTable)] then with RealProfTable[NumberList] do
    Writeln(NumberList:10, NameProfession:20, Salary:10:2)
  else
    Writeln('В списке нет профессии с таким номером.');