TPW - Error 3: Unknown Identifier

S7sRuss

What is folding?
Olá pessoal.
Estive a escrever o programa em baixo no Turbo Pascal for Windows 1.5 (TPW 1.5)
e quando fiz compilar deu o erro Error 3: Unknown Identifier na função delay(1).

Como posso resolver o problema?

program cronometro;
uses wincrt;
var mil,seg,min:integer;
begin
mil:=0;
seg:=0;
min:=0;
read;
while(min<60) do
begin
delay(1); {erro!}
mil:=mil+1;
if(mil=60) then
begin
seg:=seg+1;
mil:=0;
end;
if (seg=60) then
begin
min:=min+1;
seg:=0;
end;
gotoxy(3,5);
write(min,':',seg,':',mil);
end;
end.
 
Última edição:
Já resolvi o problema. Como o TPW 1.5 não tinha nenhuma biblioteca com a função delay então usei o programa PZIM para compilar o código.
Com o PZIM, a única alteração a fazer no código é retirar a linha uses WinCrt;
 
Back
Topo