[Pascal] Описать структуру с именем MARSH (маршрут). Возникает ошибка. Почему?

[dastreba]

Программа не моя.
В общем: программа выдает ошибку,не подскажет почему?

Program lab10;
Uses crt;
Type Marsh=record
    NachM,KonM:string[30];
    Num:integer;
    end;
Var f:file of Marsh;
el1,el2:Marsh;
Number:integer;
Procedure Create;
    Begin
    Seek(f,FileSize(f));
    Writeln('Vvedite svedeniya o marshruta');
    Writeln('Dlya vihoda vvedite *');
    While true do
        Begin
        Writeln('Vvedite nachalo marshruta');
        Readln(el1.NachM);
        if el1.NachM='*' then break;
        Writeln('Vvedite konec marshruta');
        Readln(el1.KonM);
        if el1.KonM='*' then break;
        Writeln('Vvedite nomer marshruta');
        Readln(el1.Num);
        Write(f,el1)
        end;
    end;
Procedure Sort;
Var i,j:integer;
    Begin
    Seek(f,0);
    For i:=filesize(f)-1 downto 1 do
    For j:=0 to i-1 do
        Begin
        Seek(f,j);
        Read(f,el1,el2);
        if el1.Num>el2.Num then
            Begin
            Seek(f,j);
            Write(f,el2,el1);
            end;
        end;
    end;
Procedure Find_marsh;
Var i:integer;
    n:string[30];
    v:boolean;
    Begin
    Writeln('Vvedite tochku marshruta');
    Readln(n);
    For i:=1 to filesize(f) do
        Begin
        Seek(f,i);
    Read(f,el1);
        if ((el1.NachM)=n) or ((el1.KonM)=n) then 
            Begin
            Writeln('Nachalniy marshrut - ',el1.NachM);
            Writeln('Konechniy marshrut - ',el1.KonM);
            Writeln('Nomer marshruta - ',el1.Num);
            end
        else v:=false;
        end;
    if not(v) then Writeln('Marshruta s takim punktom net');
    end;
    Writeln('1 - Find marshrut');
    Writeln('2 - Exit');
    Sort;
    Readln(Number);
    Case Number of
   
    1:Find_marsh;
    2:Exit;
    end;
end;
end.

[Вадим Мошев]

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

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

Какую ошибку и на какой строке? Используйте пошаговую трассировку (если не знаете, что это, почитайте об этом информацию в интернете), тогда, быть может, вы сами поймёте, где у вас ошибка и как её исправить.

Я вот сейчас бегло посмотрел вашу программу без запуска в каких-либо средах. Вы оперируете с файлами (в частности процедурой seek), но нигде их не открываете на чтение.

[WorldMaster]

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

В общем: программа выдает ошибку,не подскажет почему?

Потому что криво написана. )) Логично же.

[dastreba]

Сообщение от Вадим Мошев

Какую ошибку и на какой строке? Используйте пошаговую трассировку (если не знаете, что это, почитайте об этом информацию в интернете), тогда, быть может, вы сами поймёте, где у вас ошибка и как её исправить.

Я вот сейчас бегло посмотрел вашу программу без запуска в каких-либо средах. Вы оперируете с файлами (в частности процедурой seek), но нигде их не открываете на чтение.

Writeln('1 - Find marshrut');   // ошибка вылазит
    Writeln('2 - Exit');
    Sort;
    Readln(Number);
    Case Number of
   
    1:Find_marsh;
    2:Exit;
    end;
end;
end.

[Аватар]

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

[Вадим Мошев]

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