«Exitcode 5» при запуске программы на тему «файлы»

{Программа связывает один текстовый файл с двумя файловыми переменными. Что будет?}
program p_25_5;
var
  F1,F2 : Text; {файловые переменные}
 
{выводит файл на экран}
procedure WriteFile(var F : Text);
var
  S : string;
begin
  while not EoF(F) do
  begin
    ReadLn(F,S); {читаем строку}
    WriteLn(S); {выводим строку}
  end;
end;
 
{главная программа}
begin
  {связать переменную и имя файла самой программы}
  Assign(F1,'p_25_5.pas');
  Assign(F2,'p_25_5.pas');
 
  {открыть файлы}
  Reset(F1);
  Reset(F2);
 
  {вывести файлы}
  WriteFile(F1);
  WriteLn;
  WriteFile(F2);
 
  {закрыть файлы}
  Close(F1);
  Close(F2);
 
  ReadLn; {пауза}
end.

program p_25_6;
var
  F1, F2: text;
begin
  Assign(F1, 'p_25_6.pas');
  Assign(F2, 'p_25_6.pas');
  Reset(F1);  Reset(F2);
  Writeln('OK!');
  Readln;
end.