coursework, help please.

[Funzo]

im uising windows programing language and basically in need to make a booking file print in a human friendly kind of way. Here is the code i am using:

try

readfile := false;
read(bookingFile, Abooking);
readfile := true;
while
readfile
do

memo1summary.lines[1] := Abooking.eventtitle;
memo1summary.lines[2] := Abooking.name;
memo1summary.lines[3] := Abooking.audience;
memo1summary.lines[4] := Abooking.event;
memo1summary.lines[5] := Abooking.time;
until
//end of file
end;

all i need is something that will make it recall each booking until the end of the file. I also need to change tdate into a string. Any help would be much appreciated. thanks.