Вывести из файла информацию о микросхемах в порядке уменьшения их стоимости

Program files;
type microshemi=record
price:integer;
name:string;
end;
var
nm:string;
i,k,j,o:integer;
x:array[1..5] of microshemi;
begin
for i:=1 to 5 do with x[i] do
begin
writeln('Введите название микросхемы: ');
readln(name);
writeln('Введите цену микросхемы: ');
readln(price);
end;
for i:=1 to k-1 do
for j:=i+1 to k do
begin
if x[j].price<x[i].price then
begin
o:=x[j].price;
x[i].price:=o;
nm:=x[j].name;
x[j].name:=x[i].name;
x[i].name:=nm;
end;
end;
for i:=1 to 5 do with x[i] do
begin
writeln (name, ' ' ,price);
end;
end.

program files;
const
  n_max=100; { количество записей }
 
type
  microshemi = record
    price: integer;
    name: string;
  end;
 
var
  nm: string;
  nk,i, k, j, o: integer;
  x: array[1..n_max] of microshemi;
  f: file of microshemi;
 
{ (C) alexBlack }
{  n = 1 - по названии микросхемы, 2 - стоимости }
procedure Sort(N:integer);
var t:microshemi;
    changed, B : boolean;
    i:integer;
begin
   repeat
      changed := false;
      for i := 1 to n do begin
         case N of
            1 : B := x[i].Name > x[i+1].Name;
            2 : B := x[i].price < x[i+1].price;
         else   B := false;
         end;
         if B then begin
            changed := true;
            t := x[i];
            x[i] := x[i+1];
            x[i+1] := t;
         end;
      end;
   until not changed;
end;
 
begin
  write('Введите количество записей: '); readln(nk);
  assign(f,'file.dat');
  rewrite(f);
  for i := 1 to nk do
    begin
      with x[i] do
        begin
          writeln('Введите название микросхемы: ');
          readln(name);
          writeln('Введите цену микросхемы: ');
          readln(price);
        end;
      write(f,x[i]);
    end;
  close(f);
 
  reset(f);
  i:=1;
  while not eof(f) do
    begin
      read(f,x[i]);
      inc(i);
    end;
  close(f);
  nk:=i-1;
 
  sort(2);
 
  for i := 1 to nk do
    with x[i] do
    begin
      writeln(name, ' ', price);
    end;
end.