Program Mobile_Phones;

Uses Wincrt;

Var
   Answer:Char; { Global variable used to exit repeat loop in main program }

{*********Procedures**********}
Procedure Welcome;
Begin
     Writeln('Welcome to the Phone Selector');
     Writeln('Please enter the details of your phone');
End;

Procedure Phone_Make;
var p_make:Char; { Local variable used to record the make of the phone }
    count:Integer; { Local varible used to record the count for the readkey }
    total_chars:String;
Begin
     count := 0; {set count to zero}
     while p_make <> #13 do {stop when return key pressed}
     Begin
          Writeln('Please enter the phone make');
          Readln(p_make);
          p_make := Readkey;
             if p_make <> #13 then
                Begin
                     Writeln('Please enter a value');
                End
             else
                 Begin
                      Writeln('');
                 End;
     End;
End;

Procedure Phone_Model;
var p_model:Char; { Local variable used to record the model of the phone }
Begin
     Writeln('Please enter the phone model');
     Readln(p_model);
End;

Procedure Screen_Colours;
Begin
End;



Procedure Close_Program;
Begin
End;

{ ******** Main Program ******** }

Begin
     Welcome;
     Repeat
           Phone_Make;
           Phone_Model;
           Screen_Colours;
     Until Answer='n';
     Close_Program;
End.