Бесконечное открытие файлов

[Манжосов Денис :)]

Вот:

program OpenText;
uses crt;
var         f: Text;
  s, FilePath: string;
       answer: string[2];
procedure LoadTextFile;
begin
  Clrscr;
  Write('Press text file path ');
  ReadLn(FilePath);
  Assign(f, FilePath);
  Reset(f);
  while not EOF(f) do
   begin
    ReadLn(f, s);
    WriteLn(s);
   end;
  Close(f);
OpenAgain;
end;
procedure OpenAgain;
begin
 WriteLn('Do you want again open file? (Y/N)');
 readLn(answer);
 if ((answer = 'Y') or (answer = 'y')) then LoadTextFile;
end;

begin
 LoadTextFile;
 OpenAgain;
 ReadLn;
end.

Ошибка такая:
"Error 3. Unknown identifiter OpenAgain".
Ошибка в том, что процедура создана после процедуры LoadtextFile, поэтому как бы не существует. А как исправить эту ошибку?
................................... ................................... ...............
Модераторы, пожалуйста перенесите тему, я ошибся разделом.

[_Dmitry]

Используй опережающее описание: forward

program OpenText;
uses crt;
var         f: Text;
  s, FilePath: string;
       answer: string[2];

procedure OpenAgain; forward;

procedure LoadTextFile;
begin
  Clrscr;
  Write('Press text file path ');
  ReadLn(FilePath);
  Assign(f, FilePath);
  Reset(f);
  while not EOF(f) do
   begin
    ReadLn(f, s);
    WriteLn(s);
   end;
  Close(f);
OpenAgain;
end;

procedure OpenAgain;
begin
 WriteLn('Do you want again open file? (Y/N)');
 readLn(answer);
 if ((answer = 'Y') or (answer = 'y')) then LoadTextFile;
end;

begin
 LoadTextFile;
 OpenAgain;
 ReadLn;
end.

[_Engine_]

Ну создай её до процедуры LoadTextFile, в чём проблема?

[_Dmitry]

Ну создай её до процедуры LoadTextFile, в чём проблема?

Не поможет, они у него циклически ссылаются друг на друга.

[_Engine_]

Виноват, невнимательно посмотрел )

[Манжосов Денис :)]

_Dmitry
Спасибо

[Манжосов Денис :)]

И ещё один вопрос.
Какой процедурой можно выйти из программы паскалевской?

[_Dmitry]

Halt; завершает выполнение программы

[Манжосов Денис :)]

Ещё раз спасибо.

[Serge_Bliznykov]

Манжосов Денис, имхо, вообще Вы придумали КРАЙНЕ неэффективный способ организации программы!! (я уже не говорю, про использование глобальных переменных!!)
ну напишите в процедуре LoadTextFile

repeat
  <тут Ваш код...>
 WriteLn('Do you want again open file? (Y/N)');
 readLn(answer);
until Not ((answer = 'Y') or (answer = 'y'));

не надо выносить в отдельные процедуры/функции то, что не нужно ;-)