Tell me which language it is ???

Question

Program Example15;
uses Crt;
{ Program to demonstrate the Delay function. }
var
i : longint;
begin
WriteLn('Counting Down');
for i:=10 downto 1 do
begin
WriteLn(i);
{Wait one second}
Delay(1000);
end;
WriteLn('BOOM!!!');
end.

Answer 1

I think it's Pascal, though there are typos in syntax (uppercase initials)