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

[I_love_dvorak]

Привет, народ
Изучаю основы программирования и нашел вот такую задачку:

Составить программу, помогающую администратору гостиницы. В гостинице восемь этажей. На первом этаже - административные помещения и ресторан; на втором - восемь двухкомнатных номеров класса люкс; на третьем и четвертом - по шестнадцать одноместных номеров; на остальных этажах по шестнадцать двухместных однокомнатных номеров на каждом этаже. О каждом номере известна следующая информация: номер свободен, номер забронирован, номер занят, в номере живет один человек (мужчина или женщина), в этом случае известна следующая информация: с правом подселения или нет (если номер двухместный), прибыл в командировку, прибыл в частном порядке. По требованию администратору выдавать информацию:

• о свободных номерах
• о свободных мужских местах в номерах с указанием номера
• о свободных женских местах в номерах с указанием номера
• о гостях приехавших в командировку с указанием номеров, в которых они живут
• о гостях, приехавших в частном порядке
• о забронированных номерах

Примечание.
Номера в гостинице имеют три цифры. Самая старшая (левая) цифра - номер этажа, оставшиеся две - номер на этаже.

Дак вот. Спортивный интерес не могу свой удовлетворить. На Ruby сделал, а на Паскале никак не могу понять, как делать. Помогите, кто чем может ^_^
З.Ы. Я работаю админом, а не студент, не надо меня ругать
UPD: Массив использовать нельзя. Все записывается/читается из файла, например, table.dat. В руби все делается легко с case и csv. В паскале же не могу работать с файлом в процедуре, ибо процедура пишется перед собственно началом программы, где файл прочитать никак нельзя. Соответственно в case не запихнуть никакой метод. Объектов с классами тоже нет. Полевые условия

[Stilet]

ибо процедура пишется перед собственно началом программы, где файл прочитать никак нельзя.

Ложь. Вызывается процедура все равно где-то исходя из главной программы. Так что не имеет значения где ты описал процедуру.

Объектов с классами тоже нет.

Ложь. Есть. Особенно в новых Делфи и ФриПаскале. Старый досовский не бери - не удобно.

Как выглядит на Руби показать можешь?

[I_love_dvorak]

Сообщение от Stilet

Ложь. Вызывается процедура все равно где-то исходя из главной программы. Так что не имеет значения где ты описал процедуру.

Это странно, так как в учебниках и примерах процедуры в старом добром паскале описываются между var и begin. Мне ведь нужно сделать assign().
З.Ы. Запостю на руби, как попаду домой И оно мало чего общего, здается мне, имеет с паскалевским кодом

[Stilet]

так как в учебниках и примерах процедуры в старом добром паскале описываются между var и begin.

Фигасе учебники... Впрочем что только в желтой прессе не пишут )

Мне ведь нужно сделать assign().

Но это не говорит что этот ассигн будет вне доступа основной программы.

оно мало чего общего, здается мне, имеет с паскалевским кодом

Не важно. Сконвертировать можно. Я то Питон и Паскаль подружил друг с дружкой, и успешно перевожу некоторые проекты на питон. и обратно, так что не слушай тех кто говорит категорическое нет. Выглядеть прога точь-в-точь не обязана.

[I_love_dvorak]

Сообщение от Stilet

Не важно. Сконвертировать можно. Я то Питон и Паскаль подружил друг с дружкой, и успешно перевожу некоторые проекты на питон. и обратно, так что не слушай тех кто говорит категорическое нет. Выглядеть прога точь-в-точь не обязана.

Я про CSV говорю.

[Stilet]

CSV это файл с полями разделенными ";" ?
Если да то в паскале его считывать не сложно.

[I_love_dvorak]

 def initialize(filename)
    @file = CSV.open(filename, {headers: true, header_converters: :symbol})
  end

Вот что-то вроде этого нужно.

def print_names
    @file.each do |line|
      puts line[:first_name]
    end
  end

и вот этого. И тогда я сделаю

[Stilet]

Ясно. Сделаю. Какой паскаль?

[I_love_dvorak]

Вроде как обыкновенный Спасибо большое

А, ок, ок. Турбо. Сори.

[BDA]

Вроде как обыкновенный

Turbo Pascal
Free Pascal
Pascal ABC
Pascal ABC NET
Delphi
так что... лучше поточнее