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_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 Phone_Make;
var
   ch:char;
    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
          writeln('hello') ;
      end;





     {  ch := Readkey;
             if ch = #13 then
                Begin
                    count :=count + 1;
                    total_chars:=total_chars + ch;
                End
             else
                 Begin
                 Readln(p_make);
                     {Writeln('Please enter a value');  }
                { End;  }
    { End; }

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.