program vetau;
uses crt, dos;
type
	people=record
		ngaydi, giodi, gioden, hoten, cmnd, mave: string;
		tuoi: byte;
		giave: longint;
	end;
var ve: array[1..100] of people;
	n: byte;
procedure nhap;
	var i: byte;
	begin
		Writeln('Chuong trinh quan li ve tau');
		Write('Nhap so ve da ban: '); readln(n);
		for i:=1 to n do
			begin
				Writeln('Thong tin ve ban ghi thu ',i,':');
				Write('Ngay di: ');readln(ve[i].ngaydi);
				Write('Gio di: ');readln(ve[i].giodi);
				Write('Gio den: ');readln(ve[i].gioden);
				Write('Ho va ten: ');readln(ve[i].hoten);
				Write('So chung minh nhan dan: ');readln(ve[i].cmnd);
				Write('Ma ve: ');readln(ve[i].mave);
				Write('Tuoi: ');readln(ve[i].tuoi);
				Write('Gia ve: ');readln(ve[i].giave);
			end;
	end;
procedure paint(i: byte);
	begin
		Writeln('Thong tin ve ban ghi thu ',i,':');
		Write('Ngay di: ',ve[i].ngaydi);
		Write('Gio di: ',ve[i].giodi);
		Write('Gio den: ',ve[i].gioden);
		Write('Ho va ten: ',ve[i].hoten);
		Write('So chung minh nhan dan: ',ve[i].cmnd);
		Write('Ma ve: ',ve[i].mave);
		Write('Tuoi: ',ve[i].tuoi);
		Write('Gia ve: ',ve[i].giave);
	end;
procedure main;
	var key: char;
	begin
		Writeln('________________________________________________________');
		nhap;
		paint(1){Thich lam gi them vao day}
	end;
begin
	main;
end;