Типизированные файлы. Выбрать данные о проводниках и упорядочить их по убыванию удельных весов - Pascal ABC - Ответ 2342646

program kubi;
uses crt;
type 
kub=record
color:string[10];
material:string[10];
razmer:integer;
 
end;
var
base:file of kub;
a:kub;
FileName:string;
i,n:integer;
c:char;
Begin
writeln('Введите название базы Кубиков');
readln(FileName);
Assign(base,FileName);
Rewrite(base);
writeln('Введите кол-во кубиков вводимых в базу данных');
readln(n);
Writeln('Приступим к вводу даных о кубиках');
with a do
 
 
for i:=1 to n do 
begin
with a do
begin
 
 writeln('Введите цвет:');
 writeln('1=красный');
 writeln('2=Желтый');
 writeln('3=Зеленый');
 writeln('4=Синий');
 readln(c);
 case c of
 '1':color:='Красный';
 '2':color:='Желтый';
 '3':color:='Зеленый';
 '4':color:='Синий';
 end;
 writeln('Введите материал');
 writeln('1=Деревянный');
 writeln('2=Металлический');
 writeln('3=Картонный');
 
 readln(c);
 case c of
 '1':material:='Деревянный';
 '2':material:='Металлический';
 '3':material:='Картонный';
 
 end;
 
  write('Введите размер: ');
 readln(razmer);
 end;
 write(base,a);
 end;
 close(base);
 writeln('Конец ввода даных. Нажмите ENTER');
 readkey;
 end.