Файлы прямого доступа

uses crt;
type
    info=record
    tip:string[31];
    num,kol,h,km:word;
    end;
    s_base=array[1..30]of byte;
var f:file of info;i,j:byte;
procedure create_file(name:string);
var temp:info;
begin
    assign(f,name);rewrite(f);
    with temp do begin
    tip:='small';
    num:=747;
    kol:=3;
    h:=12;
    km:=30;
    end;
    write(f,temp);
    close(f);
end;
procedure sort(up:boolean;ch:char);
var i,j:byte;a,b:info;
begin
    reset(f);
    for i:=0 to filesize(f)-2 do
    for j:=0 to filesize(f)-i-2 do
    begin
        seek(f,j);
        read(f,a,b);
    case ch of
    't':if((up)and(a.tip<b.tip))or((up=false)and(a.tip>b.tip))then
    begin
        seek(f,j);
        write(f,b,a);
    end;
    'n':if((up)and(a.num>b.num))or((up=false)and(a.num<b.num))then
    begin
        seek(f,j);
        write(f,b,a);
    end;
    'c':if((up)and(a.kol>b.kol))or((up=false)and(a.kol<b.kol))then
    begin
        seek(f,j);
        write(f,b,a);
    end;
    'h':if((up)and(a.h>b.h))or((up=false)and(a.h<b.h))then
    begin
        seek(f,j);
        write(f,b,a);
    end;
    'k':if((up)and(a.km>b.km))or((up=false)and(a.km<b.km))then
    begin
        seek(f,j);
        write(f,b,a);
    end;end;end;
    close(f);
end;
procedure search(ch:char;tp:string;t:word;var base:s_base;var k:byte);
var i,j:byte;temp:info;
begin
    reset(f);k:=0;
    for i:=0 to filesize(f)-1 do
    begin
        read(f,temp);
        case ch of
        't':if tp=temp.tip then
        begin
            inc(k);base[k]:=i;
        end;
        'n':if t=temp.num then
        begin
            inc(k);base[k]:=i;
        end;
        'c':if t=temp.kol then
        begin
            inc(k);base[k]:=i;
        end;
        'h':if t=temp.h then
        begin
            inc(k);base[k]:=i;
        end;
        'k':if t=temp.km then
        begin
            inc(k);base[k]:=i;
        end;
        end;
    end;
    close(f);
end;