Ошибка ввода\вывода 106, работа с текстовым файлом

program zadacha21;
 uses crt;
 type country = record
      name:string[25];
      pl, nas:longint;
      end;
 var mfile:text; f:country;
     namenasmax, nameplmax: string[25];
     plmax, nasmax: longint;
 begin
  clrscr;
  plmax:=0; nasmax:=0;
  writeln('Назва країни     Площа     Населення');
  assign(mfile,'d:\Країни.txt');
  reset(mfile);
  while not eof(mfile) do
  with f do
       begin
       readln(mfile,name,pl,nas);
       writeln(name:20, pl, nas);
       if pl>plmax then
       begin
       plmax:=pl; nameplmax:=name
       end;
       if nas>nasmax then
       begin
       nasmax:=nas; namenasmax:=name;
       end;
      end;
 writeln('Країна з найбільшою площею: ',nameplmax);
 writeln('Країна з найбільшим населенням: ',namenasmax);
 readln
 end.

type country = record
      name:string[25];
      pl, nas:longint;
      end;
 var mfile:text; f:country;
     namenasmax, nameplmax: string[25];
     s:string;
     plmax, nasmax: longint;
 begin
  clrscr;
  plmax:=0; nasmax:=0;
  writeln('Назва краини     Площа     Населення');
  assign(mfile,'1.txt'); //файл в папке с программой
  reset(mfile);
  while not eof(mfile) do
   begin
    readln(mfile,s);//читаем строку
    while pos('  ',s)>0 do
    delete(s,pos('  ',s),1);//удаляем лишние пробелы
    f.name:=copy(s,1,pos(' ',s)-1); //читаем страну
    delete(s,1,pos(' ',s));//удаляем
    f.pl:=strtoint(copy(s,1,pos(' ',s)-1));//читаем плщадь
    delete(s,1,pos(' ',s));//удаляем
    f.nas:=strtoint(s); //остаток строки=население
    writeln(f.name:12,' ',f.pl:9,f.nas:14);
    if f.pl>plmax then
     begin
       plmax:=f.pl;
       nameplmax:=f.name
     end;
    if f.nas>nasmax then
     begin
      nasmax:=f.nas;
      namenasmax:=f.name;
     end;
  end;
 close(mfile);
 writeln('Країна з найбільшою площею: ',nameplmax);
 writeln('Країна з найбільшим населенням: ',namenasmax);
 readln
 end.