Программа, отражающая прием работы с файлами

[davitalik]

Здравствуйте, использую PascalABC.NET при компиляции ошибка в последней строке " Встречено '.', а ожидалось ';' " Помогите с решением

type reals = file of real;
procedure p(f,g,h:reals);
var k,sum : real;
  cnt : integer;
begin
  Reset(f);
  sum:=0;  cnt:=0;
  while not eof(f) do begin
    Read(f, k); sum:=sum+k; Inc(cnt);
  end;
     if cnt=0 then Exit; {если файл пустой, выходим}
  sum := sum/cnt; {найдём среднее} 
  Reset(g);
  Seek(g, FileSize(g)); {переход в конец файла g}
  Reset(h);
  Seek(h, FileSize(h));  {переход в конец файла h}
  Reset(f); {перешли в начало файла f}
  while not eof(f) do begin
    Read(f, k); 
    if k<sum
      then Write(g, k)
      else Write(h, k)
  end;
  Close(f); 
  Close(g);
  Close(h); 
 end.

[p51x]

Остается ответить из компилятора:

Встречено '.', а ожидалось ';'

Вы забыли энд для процедуры перед эндом для программы.

[davitalik]

Сообщение от p51x

Вы забыли энд для процедуры перед эндом для программы.

Так кол-во begin-end же соответствует. При добавлении еще 1 end, требуется очередной begin.

[FPaul]

Процедура p не описана ваще.