Реферат: Разработка информационно-поисковой системы Ювелирные изделия

Assign(F, name);

Reset(F);

Seek(F, ed);

Read(F, data);

Writeln;

Write(data.isd, ' -> ');

Readln(data.isd);

Write(data.mat, ' -> ');

Readln(data.mat);

Write(data.cen, ' -> ');

Readln(data.cen);

Seek(F, ed);

Write(F, data);

Close(F);

end;

end;

end;

{--------------------------------------------------------------------}

{--------------------------------------------------------------------}

procedure sort;

var

i,j,count,sortPole: integer;

tmp: Jeverly;

data: array[0..20]of Jeverly;

G: File of Jeverly;

begin

{$I-}

Assign(F, name);

Reset(F);