Никак не могу найти ошибку в синтаксисе... =(

program bankir;
uses crt;
type
proctype = record
maxres: integer;
usedres: integer;
end;
 
 
bankertype = record
proclist:array [1..300] of proctype;
count: integer;
allres: integer;
freeres: integer;
end;
 
var
banker: bankertype;
 
procedure enterinfo;
procedure showinfo;
 
begin
enterinfo;
showinfo;
end;
 
 
 
 
procedure enterinfo;
var
i: integer;
begin
writeln;
writeln('Ievadiet sistemas maksimalo resursu skaitu:');
read(banker.allres);
banker.freeres:=banker.allres;
writeln('Ievadiet procesu skaitu(<300):');
read(banker.count);
for i:=1 to banker.count do
begin
writeln('Ievadiet ',i,'. procesam maksimalo resursu skaitu:');
read(banker.proclist[i].maxres);
banker.proclist[i].usedres:=0;
end;
end;
 
procedure showinfo;     <============================================
var
i:integer;
begin
writeln('#################################');
writeln('Sistemas brivi resursi:',banker.freeres);
writeln('Sistemas maksimals resursu skaits:',banker.allres);
for i:=1 to banker.count do
writeln(i,'. process - izmanto resursu skaits:',banker.proclist[i].usedres,
', maksimals resursu skaits:',banker.proclist[i].maxres);
end;