Procedure Loading

procedure loading;
Begin
write ('Loading : ');
    delay (500);
    clrscr ;
    write ('Loading : ');
    write ('| (1/10)');
    delay (500);
    clrscr ;
    write ('Loading : ');
    write ('|| (2/10)');
    delay (500);
    clrscr ;
    write ('Loading : ');
    write ('||| (3/10)');
    delay (500);
    clrscr ;
    write ('Loading : ');
    write ('|||| (4/10)');
    delay (500);
    clrscr ;
    write ('Loading : ');
    write ('||||| (5/10)');
    delay (500);
    clrscr ;
    write ('Loading : ');
    write ('|||||| (6/10)');
    delay (500);
    clrscr ;
    write ('Loading : ');
    write ('||||||| (7/10)');
    delay (500);
    clrscr ;
    write ('Loading : ');
    write ('|||||||| (8/10)');
    delay (500);
    clrscr ;
    write ('Loading : ');
    write ('||||||||| (9/10)');
    clrscr ;
    write ('Loading : ');
    write ('|||||||||| (10/10)');
    delay (1000);
    clrscr ;
end;