Создайте два файла, содержащих сведения о десяти нападающих хоккейных команд

program hockey;
 
uses
  crt;
 
type
  hk = record
    name: string[20];
    shyiba: record
      gol_per: integer;
      gol: integer;
      straf_time: integer
    end
  end;
 
var
  hokiyArray, hokiyArray01: array[1..100] of hk;
  i, n: integer;
  f,f2: text;
  s:string;
 
begin
  Assign(f, 'динамо.txt');
  Rewrite(f);
  Writeln('ДИНАМО ');
  Write('Введите количество нападающих : '); Readln(n);
  for i := 1 to n do 
  begin
    Writeln('--------------------------');
    Writeln(' Введите данные ', i, 'нападающего');
    Write(' Введите имя : '); Readln(hokiyArray[i].name);
    Writeln('--------------------------');
    Writeln;
    Write(' Количество заброшеных шайб : ');
    Readln(hokiyArray[i].shyiba.gol_per);
    Write('Количество голевіх передач ');
    Readln(hokiyArray[i].shyiba.gol);
    Write(' Количество штрафного времени ');
    Readln(hokiyArray[i].shyiba.straf_time);
    Writeln
  end;
  Writeln;
  for i := 1 to n do 
  begin
    with hokiyArray[i] do
      Writeln(f, 'ДИНАМО', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
        ' ', shyiba.straf_time);
  end;
  Close(f);
  
  Assign(f, 'спартак.txt');
  Rewrite(f);
  Writeln('СПАРТАК ');
  Write('Введите количество нападающих : '); Readln(n);
  for i := 1 to n do 
  begin
    Writeln('--------------------------');
    Writeln(' Введите данные ', i, 'нападающего');
    Write(' Введите имя : '); Readln(hokiyArray01[i].name);
    Writeln('--------------------------');
    Writeln;
    Write(' Количество заброшеных шайб : ');
    Readln(hokiyArray01[i].shyiba.gol_per);
    Write('Количество голевых передач ');
    Readln(hokiyArray01[i].shyiba.gol);
    Write(' Количество штрафного времени ');
    Readln(hokiyArray01[i].shyiba.straf_time);
    Writeln
  end;
  Writeln;
  for i := 1 to n do 
  begin
    with hokiyArray01[i] do
      Writeln(f, 'СПАРТАК', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
        ' ', shyiba.straf_time);
  end;
  Close(f);
  
  reset(f);
  assign(f2, 'динамо2.txt');
  rewrite(f2);
  
  while not eof(f) do
  begin
    readln(f,s);
    if(s[1]='A') or (s[1]='a') then
    writeln(f,s);
  end;
  close(f2);
  end.