Работа с процедурами в паскале

[pj-infest]

при выполнении процедуры:

{================================== ====================}
procedure menu_list1;
begin
clrscr;
if startel1<>nil then robota1;
repeat
clrscr;
writeln (' stlect and pres key');
writeln('========================== ====');
writeln('|| 1 - enter list by hands ||');
writeln('|| 2 - enter list random ||');
writeln('|| 3 - go to main menu ||');
writeln('|| 4 - exit ||');
writeln('========================== ====');
readln(answer);
until (answer>0) and (answer<=4);
case answer of
1:vvid1;
2:randomvvid;
{3mainmenu;}
4:vuhid;
end;
end;
{================================== ====================}

рядок: if startel1<>nil then robota1;

это проверка на созданный / пустой односвязной список
при выполнении условия должна вызываться процедра: robota1

procedure robota1;
begin
answer:=0;
repeat
clrscr;
writeln(' select and pres key');
writeln('========================== ========');
writeln('|| 1 - pereglyanytu spusok ||');
writeln('|| 2 - vuvestu spusok ||');
writeln('|| 3 - main menu ||');
writeln('|| 4 - exit ||');
writeln('========================== ========');
readln(answer);
until (answer>0) and (answer<=4);
clrscr;
case answer of
{1ereglyad1; }
2ut_list;
{3:goto mainmenu;}
4:vuhid;
end;
end;


здесь-то и возникает ошибка (((
eror3:uknown identifer и вказивает мне на robota1
в строке if startel1<>nil then robota1;

подcкажите мне неопытному что здесь можно сделать?

[Z1000000]

Ты процедуру robota1 вызываешь ранее чем объявил ее по тексту программы. поменяй процедуры местами в тексте или перед процедурой menu_list1 сделай упреждающее объявление robota1

procedure robota1;