Составить программу, помогающую администратору гостиницы (pascal)

[Stilet]

Turbo Vision в свое время рулила

Ну так то оно так, но разрабатывать сейчас в досовских прогах... Как-то перегазовкой на новых меринах попахивает

[Sciv]

Ну так то оно так, но разрабатывать сейчас в досовских прогах... Как-то перегазовкой на новых меринах попахивает

И ведь не поспоришь...

[I_love_dvorak]

Блин, не могу понять как составить правильно процедуру поиска ><
Может, поправите?)

procedure SearchFreeRoom();
label m1;
var
	n, i, k, l, b: Byte;
	x: hotel_floor;
	p: Integer;
begin
	n:=0;
	assign(base, 'table.dat');
	reset(base);
	while not eof(base) do
	begin
		n:=n+1;
		read(base, floor[n]);
	end;
	for i := 1 to n do 
	begin
		if floor[i].room_free = false then 
		begin
			writeln('Room number: ');	
		end;
	end;
end;

[Stilet]

procedure SearchFreeRoom();
label m1;
var
	n, i, k, l, b: Byte;
	x: hotel_floor;
	p: Integer;
begin
	n:=0;
	assign(base, 'table.dat');
	reset(base);
	while not eof(base) do
	begin
		read(base, x);
		if x.room_free then 
		begin
			writeln('Рамамбахари number Room',x.room_number);	
                        break;
		end;
	end;
       close(base);
end;

Подходит?