program recone;
uses crt;

{--------------------------------------------------------------------------

This program will introduce a new type of variable called a record. A record
is like an empty file folder that the user can use to put any thing he or
she wants to put in it.
This program will read in one record from the user and print it back to the
screen.
                        by 

--------------------------------------------------------------------------}

TYPE

        recordtype = record
              last : string[20];
              first : string[20];
              street : string[30];
              city : string[15];
              state : string[2];
              zip : string[10];
              phone : string[20];
              email : string[50];
              bday : string[20];
              notes : string;

        end;

VAR   rec : recordtype;


procedure input;
var x : integer;
begin

writeln ('Entering Record Info');
for x := 1 to 20 do write (#205);
writeln; writeln;
writeln ('Please enter the FIRST NAME:');
readln (rec.first);
writeln ('Please enter the LAST NAME:');
readln (rec.last);
writeln ('Please enter the STREET:');
readln (rec.street);
writeln ('Please enter the CITY:');
readln (rec.city);
writeln ('Please enter the STATE:');
readln (rec.state);
writeln ('Please enter the ZIP CODE:');
readln (rec.zip);
writeln ('Please enter the PHONE NUMBER:');
readln (rec.phone);
writeln ('Please enter the EMAIL ADDRESS:');
readln (rec.email);
writeln ('Please enter the BIRTH DAY:');
readln (rec.bday);
writeln ('Please enter the NOTES:');
readln (rec.notes);
end;


procedure output;
var x : integer;
begin
clrscr;
writeln ('Printing Record Info');
for x := 1 to 20 do write (#205);
writeln; writeln;
writeln ('FIRST NAME:');
writeln (rec.first);
writeln ('LAST NAME:');
writeln (rec.last);
writeln ('STREET:');
writeln (rec.street);
writeln ('CITY:');
writeln (rec.city);
writeln ('STATE:');
writeln (rec.state);
writeln ('ZIP CODE:');
writeln (rec.zip);
writeln ('PHONE NUMBER:');
writeln (rec.phone);
writeln ('EMAIL ADDRESS:');
writeln (rec.email);
writeln ('BIRTH DAY:');
writeln (rec.bday);
writeln ('NOTES:');
writeln (rec.notes);

readkey;

end;


begin

clrscr;
input;
output;


end.