wrong number of parameters specified for call to

[guroDragon]

Народ, всем привет.
Срочно, пожалуйста, завтра сдавать лабу.
Не могу разобраться, почему прога ругается. Вроде в процедуре количество переменных которые вызываются и количество переменных в самой процедуре верное. Спасибо
Вот кусок кода.

program Lab7;
uses crt;
const
MaxRecCount=5;
type
rec=record
        key:integer;
        body:array [1..5] of 'a'..'z';
        end;
table=array [1..MaxRecCount] of rec;
var
FileName:string;
go:integer;
F:file of rec;
procedure Menu;
        procedure WriteCenter(word:string);
                Begin
                        GotoXY((WindMaxX div 2)-(length(word) div 2), WhereY);
                        Writeln(word);
                End;
        procedure WriteLeft(word:string);
                Begin;
                        GotoXY(5,WhereY);
                        Writeln(word);
                End;
        Begin
                clrscr;
                WriteCenter('Bla bla');
                Writeln('Press any key to continue');
                readkey;
                clrscr;
                GotoXY(WhereX,3);
                WriteLeft('1               - Show the records');
                WriteLeft('2               - Add the record');
                WriteLeft('3               - Delete the record');
                WriteLeft('4               - Sorting an array');
                WriteLeft('5               - Change the name of the file');
                WriteLeft('Esc             - Exit');
                WriteLeft('Any other keys  - Back to the menu');
                WriteLeft('Press one of these keys to continue');
                case readkey of
                        #27:go:=0;
                        #49:go:=1;
                        #50:go:=2;
                        #51:go:=3;
                        #52:go:=4;
                        #53:go:=5;
                        else go:=6;
                end;

        End;
procedure ShowRecords(FileName:string;ATable:table; ACount:integer);
var
        F:file of rec;
Begin
        Assign(F, FileName);
        {$-}
        Reset (F);
        {$+}
        if IOResult=0 then
        Begin
                ACount:=0;
                while not Eof (F) do
                Begin
                        Inc(ACount);
                        Read (F, ATable[ACount]);
                End;
        Close (F);
        Writeln('The records are successfully loaded from the file: ',FileName);
        Writeln('The number of the records is: ',ACount);
        End
        else writeln('ERROE: File is not found!');
End;


Begin
        repeat
        clrscr;
        Menu;;
        case go of
                0:break;
                1:ShowRecords;
                else continue;
                end;
                readkey;
        until go=0;
end.

[Luuzuk]

1:ShowRecords;

Вроде в процедуре количество переменных которые вызываются и количество переменных в самой процедуре верное

Нестыковка

[Serge_Bliznykov]

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

Нестыковка

+1

добавлю, что ещё, похоже, не хватает модификаторов var в описании процедуры (похоже, что она должна читать записи из файла в массив):

procedure ShowRecords(FileName:string;var ATable:table; var ACount:integer);

[type_Oleg]

А это

procedure Menu;
procedure WriteCenter(word:string);

что означает?
В модулях, в interface так делают.
Я просто не пойму, что это значит в program

[Аватар]

Так то вложенная в Menu процедура и не одна