Описать структуру с именем MARSH (маршрут)

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;
Begin
Assign(f,'farsh.dat');
{$I-}
Reset(f);
{$I+}
if IOResult=0 then Writeln('Dobavlenie zapisey v sushestvuyushiy file') else
    Begin
    Rewrite(f);
    Writeln('Zapisat v noviy file');
    end;
While true do
    Begin
    Writeln('1 - Create file');
    Writeln('2 - Find marshrut');
    Writeln('3 - Exit');
    Sort;
    Readln(Number);
    Case Number of
    1:Create;
    2:Find_marsh;
    3:Exit;
    end;
end;
end.