Составьте алгоритм и программу чтения из файла записей. Объявите тип запись «Соревнования», состоящую из следующих полей: номер участника, фамилия, пол, год рождения, время заплыва. Найти в файле и вывести на экран сведения о участниках соревнования – юношах младше 18 лет. Найти в файле и вывести на экран сведения о победителе соревнования среди юношей — Pascal(Паскаль)

                                    
Program Ex_5;
Uses crt;
Type
 sorevnovanie=record           {Тип запись}
    number: byte;                 {Поле номер участника}
    familiya: string;                  {Поле фамилия}
    god_rogdenia:word;          {Поле год рождения}
    pol:char;                        {Поле пол}
    vremya_zapliva:word;        {Поле время заплыва}
 End;
Var
   i,n:byte;
   g,max:word;
   A: array [1..5] of sorevnovanie;       
                        {Массив записей о заплывах из 5 элементов}
Begin
Clrscr;                      {Цикл для ввода информации в массив}
For i:=1 to 5 do begin                             
Writeln('номер участника: ');
Readln(A[i].number);
Writeln('фамилия: ');
Readln(A[i].familiya);
Writeln('год рождения: ');
Readln(A[i].god_rogdenia);
Writeln('пол: ');
Readln(A[i].pol);
Writeln('время заплыва: ');
Readln(A[i].vremya_zapliva);
End;
Clrscr;
For i:=1 to 5 do begin                
         {Цикл для вывода информации из массива на экран}
   With A[i] do
         Writeln(number:15,familiya:15,god_rogdenia:6,pol:6,vremya_zapliva:6);
End;
Writeln;
Writeln('Введите возраст  ');
Readln(g);
Writeln('Участники до поределнного возраста  ');
For i:=1 to 5 do begin          
   {Цикл для поиска участников до определенного возраста}
      if A[i].god<g then
            With A[i] do
                  Writeln(number:15,familiya:15,god_rogdenia:6,pol:6,vremya_zapliva:6);