Создать программу, которая сохраняет информацию в типизированном файле для определённого элемента ( используя структуру )

program pr_uz_3;
uses crt;
type
        Komp=record
        proc:string[50];
        ram:string[20];
        hdd:string[20];
        video:string[50];
        cena:real;
end;
var
        f,sr:file of Komp;
        k:Komp;
        rm,hd,st:string;
        nr,w,kol:integer;
        sum:real;
 
 
procedure SortByName;
var
 
 One1, One2: Komp;
 pos1, pos2, f_size: Longint;
begin
   Reset(f);
    rewrite(sr);
      while not eof(f) do
      begin
      read(f,k);
      write(sr,k);
      end;
    close(sr);
   close(f);
 
 
 
 
    Reset(sr);
    pos1:=0;
    f_size:=FileSize(sr) - 1;
    while pos1 < f_size do begin
      Seek(sr, pos1); Read(sr, One1);
      pos2 := pos1 + 1;
      while pos2 <= f_size do begin
        Seek(sr, pos2); Read(sr, One2);
           if One1.proc > One2.proc then begin
             Seek(sr, pos1); write(sr, One2);
             Seek(sr, pos2); write(sr, One1);
             One1 := One2;
           end;
        inc(pos2);
      end;
      inc(pos1);
    end;
  Close(sr);
end;
 
 
 
begin
Repeat
clrscr;
assign(f,'file.txt');
assign(sr,'sort.txt');
 
textcolor(green); writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-'); textcolor(7);
writeln('1. Popolnenie dannih');
textcolor(green); writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-'); textcolor(7);
writeln('2. Prosmotretj vesj tovar');
textcolor(green); writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-'); textcolor(7);
writeln('3. Korrekcija informacii o tovare');
textcolor(green); writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-'); textcolor(7);
writeln('4. Sortirovka');
textcolor(green); writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-'); textcolor(7);
writeln('5. Udalenie informacii');
textcolor(green); writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-'); textcolor(7);
writeln('6. Zakazatj optom');
textcolor(green); writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-'); textcolor(7);
writeln('7. Vijti zi programmi');
textcolor(green); writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-'); textcolor(7);
readln(w);
clrscr;
 
 
case w of
1:begin
reset(f);
seek(f,filesize(f));
    repeat
        writeln('Processor');
        readln(k.proc);
        writeln('RAM size');
        readln(k.ram);
        writeln('HDD size');
        readln(k.hdd);
        writeln('Videokarta');
        readln(k.video);
        writeln('Cena');
        readln(k.cena);
      write(f,k);
      write('Prodolzitj vvod dannih (J/N)? ');
      repeat
        st:=upcase(readkey);
      until (st='J') or (st='N');
      writeln(st)
     until st='N';
     close(f);
  end;
 
2:begin
        reset(f);
        while not EOF(f) do begin
        read(f,k);
        writeln('Procesor: ',k.proc);
        writeln('RAM size: ',k.ram);
        writeln('HDD size: ',k.hdd);
        writeln('Videokarta: ',k.video);
        writeln('Cena: ',k.cena:0:2, ' Ls');
     textcolor(green);   writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-='); textcolor(lightgray);
        end;
        Readln;
        close(f);
 
  end;
 
3:begin
        reset(f);
        write('Vvedite nomer tovara ot 0 do  ',
          filesize(f)-1,': ');
        readln(nr);
        seek(f,nr);
        write('Procesor '); readln(k.proc);
        write('RAM size '); readln(k.ram);
        write('HDD size '); readln(k.hdd);
        write('Videokarta '); readln(k.video);
        write('Cena '); readln(k.cena);
        write(f,k);
        close(f);
 
  end;
 
4:begin
     SortByName;
     reset(sr);
        while not eof(sr) do begin
        read(sr,k);
             writeln('Processor: ',k.proc);
             writeln('RAM size:',k.ram);
             writeln('HDD size: ',k.hdd);
             writeln('Videokarta: ',k.video);
             writeln('Cena: ',k.cena:0:2);
             writeln;
        end;
             readln;
      close(sr);
 end;
 
 
5:begin
   reset(f);
   write('Vvedite nomer tovara ot 0 do ',
          filesize(f)-1, '): ');
   readln(nr);
   seek(f,nr+1);
   while not eof(f) do
     begin read(f,k);
     seek (f,nr);
     write (f,k);
     nr:=nr+1;
     seek(f,nr+1)
    end;
   seek(f,filesize(f)-1);
   truncate(f);
   close(f);
  end;
 
 
6:begin
 
    reset(f);
    write('Vvedite kol-vo kompov: ');
    readln(kol);
    write('Vvedite objom RAM:  ');
    readln(rm);
    write('Vedite objom HDD:  ');
    readln(hd);
    while not eof(f) do
     begin
    read(f,k);
    if pos(rm,k.ram) and pos(hd,k.hdd) > 0 then
    begin
    sum:=k.cena*kol;
    writeln('Kompjuter s RAM  ', k.ram, ' i HDD ', k.hdd, '    Cena: ',k.cena:0:2, 'Ls');
    end;
    end;
 
      writeln('Obwaja summa: ', sum:0:2,'Ls');
    close(f);
    end;
 
 
 
 
7:writeln('Vihod s programmi');
 
 
END;
        writeln;
        WRITELN('Nazmite ljubuju klavishu chtobi prodolzitj ...');
        readkey;
until w=7;
 
end.