fork download

copy

program week5_2;
var option: integer;
begin 
    writeln('Welcome to 233 Telecommunication Services');
    writeln('Press 1 to view your bill');
    writeln('Press 2 to check your points');
    writeln('Press 3 to redeem your points');
    writeln('Press 4 to topup');
    write('Press 0 to exit: ');
    readln(option);
 
    case option of 
    1: writeln('Your bill is rm30');
    2: writeln('You have 394 points');
    3: writeln('bla bla bla');
    4: writeln('xxxx');
    0: begin 
            writeln('Thank you for using our service')
            delay(4000);
            halt;
            end;
        else
            wrieln('wrong entry');
        end;
        readln;
end.

prog.pas: In main program:
prog.pas:19: error: syntax error before `delay'
prog.pas:19: error: undeclared identifier `delay' (first use in this routine)
prog.pas:19: error:  (Each undeclared identifier is reported only once
prog.pas:19: error:  for each routine it appears in.)
prog.pas:19: error: syntax error before `;'
prog.pas:23: error: undeclared identifier `wrieln' (first use in this routine)
prog.pas:23: error: missing `..'
prog.pas:23: error: missing comma
prog.pas:23: error: syntax error before `;'

Standard output is empty