Файлы(Не выводит из файла)

[BaronVik]

Здравствуйте уважаемые программисты. У меня беда-просидел над программой 2 дня,всё сделал,правильно работает но вывод файла на экран не осуществляет-пишет ошибка 105. Вот в общем код.

PHP код:

Program Lab_2_2;
const
Sum: LongInt = 0;
Var F1,F2:text;
    S:String;
    bykv,vhod:byte;
    c:char;
Begin
   Write('Im9 file: ');
   Readln(s);
   assign(F1,s);
   {$I-}; Reset(F1); {$I+};{Prosto otkrit'}
   if IOResult = 0 then
   begin
      writeln ('File otcrit');
      readln;
   end
   else
   begin
      writeln('File neotkrit,programma okan4ivaet svoy raboty');
      readln;
      halt;
   end;
   begin
   while not EOF(F1) do
      begin
         read(F1,c);
         if (c='A') or (c='a') then
         inc(bykv);
         inc(vhod);
      end ;
   Close(F1);
   assign(F2,'G:\F2.txt');
   Rewrite(F2);  {Na zapis}
   Writeln(F2,'Kol-vo vxozdenii-',vhod);
   WriteLn(F2,'Sroka 1-',bykv);
   Close(F2);
   reset(F2);
   while not EOF(F2) do
   begin
      read(F2,c);
      writeln(F2)
   end;
   Close(F2);
   readln;
end;
end. 


Тут 2 файла. К одному пользователь прописывает путь(У меня G:\s.txt и в нём написано AaZ) и есть второй в котором сохраниться количество входов в файл и количество букв Аа (G:\F2.txt). После записи файла я посмотрел файл F2 и в нём написано

PHP код:

Kol-vo vxozdenii-3
Sroka 1-2 


То есть он всё правильно записал,дальше иду на вывод из файла

PHP код:

   reset(F2);
   while not EOF(F2) do
   begin
      read(F2,c);
      writeln(F2)
   end;
   Close(F2); 


На месте writeln(F2) выдаёт ошибку 105. Вроде всё правильно сделал а тут такой облом. Подскажите что тут нетак,вроде и файл на чтение открыл а всёравно

[GetMax]

reset(F2); 
   while not EOF(F2) do 
   begin 
      read(F2,c); 
      writeln(С) 
   end; 
   Close(F2);

Выводить на экран нужно не файловую переменную, а переменную, содержащую информацию из файла

[BaronVik]

Позор на мою седую голову)
Спасибо большое всё заработало) Прям радостно