Типизированные файлы записей.

uses crt;
 const
n=5;
type
spisok=record
name:string;
strana:string;
 dpi:integer;
  price:integer;
kol:integer;
end;
mas=array[1..n] of spisok;
const
sp:mas=((name:'HP'; strana:'Russia'; dpi:600; price:2000; kol:120),
        (name:'Epson'; strana:'USA'; dpi:1400; price:1000; kol:40),
        (name:'Canon'; strana:'Singapour'; dpi:1000; price:2400; kol:300),
        (name:'Brother'; strana:'China'; dpi:1600; price:3400; kol:100),
        (name:'Samsung'; strana:'Singapour'; dpi:800; price:2300; kol:200));
 
        var
        f:file of spisok;
        i:integer;
        begin
        clrscr;
        assign(F,'file.txt');
        rewrite(f);
        for i:=1 to n do
         with sp[i] do begin
              write(f, sp[i]);
         end;
          close(f);
        writeln ('fail sozdan');
        readln;
        end.

uses crt;
    const
    n=5;
type
spisok=record
name:string;
strana:string;
 dpi:integer;
  price:integer;
kol:integer;
end;
 
            var
            bf:spisok;
               sred:real;
               y:spisok;
               i,j:integer;
               F:file of spisok;
               sp:array [1..5] of spisok;
begin
clrscr;
assign(F,'file.txt');
reset(F);
writeln('singapour, dpi>');
while not eof (F) do
begin
read(F,sp[i]);
  for i:=1 to n-1 do
for j:=i+1 to n do
if sp[i].dpi>sp[j].dpi then
   begin
    bf:=sp[i];
    sp[i]:=sp[j];
    sp[j]:=bf;
   end;
if sp[i].strana='Singapour' then
writeln(sp[i].name:6,sp[i].strana,sp[i].dpi,sp[i].kol:15);
end;
close(F);
readln;
end.