Исправить ошибки в проге Turbo Pascal

[iron_cross]

Есть прога, и есть конечно ошибки немогуу их исправить, слишком мало у меня знаний. Помогите исправить ошибки. Очень срочно:

[ATTACH]WAR.rar[/ATTACH]

[Ирискин]

лучше бы вы написали какую конкретно ошибку выдает: все-таки так проще, чем полностью читать ваш код, расшифровывать что вы там сделали и говорить вам где ошибка

[iron_cross]

главная проблема это меню программы, не работают клавиши меню вниз и вверх.

[Serge_Bliznykov]

1) в вашем примере отрабатывается ТОЛЬКО нажание клавиши вниз, но оно там совсем корявенькое..
хотя бы измените его на такое:

    if ch = chr(0) then
    begin ch := readkey; 
    case ch of
        chr(80): 
          begin
            gotoxy(x, y + punkt - 1);
            write(menu[punkt]);
            punkt := punkt + 1;
            if punkt > 6 then  punkt := 1;
            textattr := sel;
            gotoxy(x, y + punkt - 1);
            write(menu[punkt]);
            textattr := norm;
          end;
      end; { case of;}

2) а вообще, посмотрите пример реализации меню вот такой:

{ Пример создания и использования меню }
program menu2;
uses Crt;
const
     NORM=$17; { цвет невыделеного пункта }
     SEL=$70;  { цвет выделенного пункта }
     N=3;      {количество пунктов в меню}
var
     menu:array[1..N] of string[12];{ названия пунктов меню }
     punkt:integer;  { номер выделенного пункта }
     ch:char;        { введенный символ }
     x,y:integer;    { координаты первой строки меню }

Procedure punkt1;
begin
     ClrScr;
     writeln('Процедура 1.Нажмите <Enter> для продолжения.');
     readln;
end;

Procedure punkt2;
begin
     ClrScr;
     writeln('Процедура 2.Нажмите <Enter> для продолжения.');
     readln;
end;

Procedure MenuToScr;{ вывод меню на экран }
var i:integer;
begin
     ClrScr;
     for i:=1 to N do begin
          GoToXY(x,y+i-1);
          write(menu[i]);
     end;
     TextAttr:=SEL;
     GoToXY(x,y+punkt-1);
     write(menu[punkt]);{ выделим строку меню }
     TextAttr:=NORM;
end;
{ основная программа }
begin
     menu[1]:=' Действие 1 ';
     menu[2]:=' Действие 2 ';
     menu[3]:=' Выход ';
     punkt:=1;
     x:=5;
     y:=5; TextAttr:=NORM;
     MenuToScr;
     repeat
          ch:=ReadKey;
          if ch=char(0) then begin
               ch:=ReadKey;
               case ch of
                    chr(80):{ стрелка вниз }
                         if punkt<N then begin
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              punkt:=punkt+1;
                              TextAttr:=SEl;
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              TextAttr:=NORM;
                         end;
                    chr(72):{ стрелка вверх }
                         if punkt>1 then begin
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              punkt:=punkt-1;
                              TextAttr:=SEl;
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              TextAttr:=NORM;
                         end;
                 end;
              end
          else
               if ch=chr(13) then begin { нажата клавиша <Enter> }
                    case punkt of
                         1:punkt1;
                         2:punkt2;
                         3:ch:=chr(27);{ выход }
                    end;
                    MenuToScr;
               end;
     until ch=chr(27);{ 27 - код <Esc> }
end.
__________________

[iron_cross]

всё вродебы меню заработало, но почему он не хочет вводить данные, что опять не так. И что интересно программа хочет создать файл ''airbase'' можно ли совсем убрать этот файл чтоб он его не создавал и не обращался к нему.

WAR2.rar
program.txt

[ArtGrek]

строка 25

procedure Menutoscr;
var
   i:integer;
begin
...

строка 270

Procedure MenuToScr;{ ўлў®¤ ¬Ґ*о ** нЄа** }
var i:integer;
begin
...

ты или делаеш одно и то же 2 раза, или назвал одним именем 2 процедуры

[iron_cross]

у вас прога заработала? И что еще можно удалить для нормальной работы проги?

почему при создании нового рейса, не работает процедура new_reise. Меню работает само по себе, как свезать меню с процедурами?

[Stilet]

Потому что у тебя вызывается совсем другая процедура:

case punkt of
1unkt1;

а нужно

                    case punkt of
                         1:new_reis;

[iron_cross]

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

Потому что у тебя вызывается совсем другая процедура:

а нужно

                    case punkt of
                         1:new_reis;

я все так сделал. Запустил прогу ввел новый рейс, дальше вышел в меню. Хотел посмотреть базу данных, а pascal мне говорит: Error 100: Disk read error. И это уже надоедает. Можно ли сделать так чтобы он не создавал этот файл и не обращался к нему.

[iron_cross]

Вот сам файл, может кто нибудь поможет, надо доделать прогу, почему прога не хочет работать. Надо хотябы так сделать рейс, поиск рейса и вывод информации поиска и всё. Уже башка трещит.

new_pas.txt

Еще старался написать прогу на C++ но там тоже синтаксические ошибки выдаёт, вродебы смотрел все верно, ребята посмотрите пожалуста, если есть ошибки исправьте если не трудно

new_cpp.txt