Вывести названия гор Европы и их высоты

const fn = 'c:\mountain.txt';
var s: string;
    f: text;
    b: boolean;
begin
  assign(f, fn);
  reset(f);
  b := true;
  writeln('Горы Европы:');
  while not(eof(f)) do
    begin
      readln(f, s);
      while pos(' ', s) > 0 do delete(s, pos(' ', s), 1);
      delete(s, 1, 2);
      delete(s, 1, pos('|', s));
      if pos('европа', s) > 0
        then begin
          write(copy(s, 1, pos('|', s) - 1), '  ');
          delete(s, 1, pos('|', s));
          writeln(copy(s, 1, pos('|', s) - 1));
          b := false
        end
    end;
  close(f);
  if b then writeln('Не найдены.');
  readln
end.

type mn =
  record
    num: integer;
    nam: string[20];
    hig: integer;
    sys: string[20];
    pow: string[20];
    cnt: string[40]
  end;
var s: string;
    a: array [1..50] of mn;
    i, n: integer;
    b: boolean;
begin
  b := true;
  repeat
    write('Количество гор = ');
    readln(n);
    if (n < 1) or (n > 50) then writeln('Количество гор должно быть в диапазоне 1..50')
  until (n >= 1) and (n <= 50);
  for i := 1 to n do
    begin
      writeln('Гора ', i);
      a[i].num := i;
      write('Название? ');
      readln(a[i].nam);
      write('Высота? ');
      readln(a[i].hig);
      write('Система? ');
      readln(a[i].sys);
      write('Часть света? ');
      readln(a[i].pow);
      write('Страна? ');
      readln(a[i].cnt)
    end;
  b := true;
  writeln('Горы Европы:');
  for i := 1 to n do
    if a[i].pow = 'Европа'
      then begin
        writeln(a[i].nam, ', высота ', a[i].hig);
        b := false
      end;
  if b then writeln('Не найдены.');
  readln
end.