Turbo Pascal Help 

Vector писал :\И что он наделал - это лучше чем вы не чего не далали!!!

ну нет же, если бы ТС сказала просто - нужно сделать такую-то задачку, было бы понятно, какой помощи нужно. но она ж начала вопросы по реализации задавать, да ещё и свой код показывать. вот я и помог советом, раз совета попросили. ну а вы, естественно, не разобравшись в теме, полезли стыдить ни за что ни про что (не удивлён).

beckman писал:

Код:

....    'S','s': Begin ....     'F','f': Begin ....

А чем, простите, у Вас кнопочка F занимается? Чем отличается от кнопочки S?

Anecamateur писал(а) ? ? ? :

В любом случае, человек, потративший свое личное время на то чтоб совершенно незнакомому человеку написать программку, заслуживает уважения! За что ему от меня благодарность и поклон!

А вам спасибо за дельные советы, и что не прошли мимо моей проблемы!

otherw писал(а) : А чем, простите, у Вас кнопочка F занимается? Чем отличается от кнопочки S?

Ошибки копипасты! Спасибо за наводку, щас исправлюсь!

Вот как должна обрабатываться кнопка F:

Код:

'F','f': Begin                GetSeat;                Case z[i,j] of                 0:WriteLn('Seat already free!');                 1,2:Begin                      z[i,j]:=0;                      WriteLn('Seat released.');                     End;                End;               End;

beckman писал :

otherw писал(а) ... : А чем, простите, у Вас кнопочка F занимается? Чем отличается от кнопочки S?

Ошибки копипасты! Спасибо за наводку, щас исправлюсь!

В массив можно записывать цвет, как состояние места в зале.
И тогда этот код

Код:

Case z[i,j] of        0:TextBackground(Green);        1:TextBackground(Red);        2:TextBackground(Brown);       End;       Write('  ');

можно записать так

Код:

TextBackground(z[i,j]);       Write('  ');

И далее в обработке меню исправить запись состояния.

otherw писал(а) :В массив можно записывать цвет, как состояние места в зале.

Соглашусь с точки зрения оптимизации кода программы и не соглашусь с точки зрения наглядности :)