Нужно составить программу

посмотри эту программу и переделай под свою
program Igr;
uses crt;
type zap=record
name : string[10];
min, max,cena : integer;
end;
var
n,i,fl:integer;
assort: array[1..100] of zap;
BEGIN
clrscr;
writeln('СОЗДАНИЕ МАССИВА ЗАПМСЕЙ');
writeln('*************************');
write('Количество вводимых записей: --> '); readln(n);
for i := 1 to n do begin
writeln('Ввести ',i,' - ю запись');
with assort[i] do begin
write('Название игрушки: --> ');
readln(name);
write('Минимальный возраст: --> ');
readln(min);
write('Максимальный возраст: -->');
readln(max);
write('Цена игрушки ($): -->');
readln(cena);
end;
end;
writeln;
writeln(' Создание закончено');
writeln;
writeln(' Исходный массив');
writeln;
writeln('__________________________________________________________');
writeln(' N игрушка мин. возр. мах. возр. цена');
writeln('__________________________________________________________');
for i := 1 to n do
with assort[i] do
writeln(i:3,name:10,min:10,max:11,cena:10);
readln;
writeln(' Поиск игрушек детям 5 лет и цена 4$');
writeln('__________________________________________________________');
writeln(' N игрушка мин. возр. мах. возр. цена');
writeln('__________________________________________________________');
for i := 1 to n do
with assort[i] do
if (5>=min) and (5<=max) and (cena=4 )then begin
fl:=1;
writeln(i:3,name:10,min:10,max:11,cena:10);
end;
if fl = 0 then begin writeln('Такой игрушки нет');readln;end;
writeln('Поиск закончен');
readln;
writeln('конец программы');
readln;
END.

1) Создать файл, имя любое, вписать в него нижеследующий код:

type info = record
name, company: string [25];
price: integer;
end;
var i, n, max_price, code_error: integer;
stroka: string;
table: array [1..100] of info;
f1: textfile;
f2: file of info;
begin
assign (f1, 'tovar.txt');
reset (f1);
n:=0;
max_price:=1;
writeln ('Наименование':13, 'Стоимость, руб.':18,'Фирма':12);
while not eof(f1) do
begin
inc(n);
readln (f1, stroka);
table[n].name:=copy (stroka, 1, pos (';', stroka)-1);
delete (stroka, 1, pos (';', stroka,1));
write (table[n].name, ' ':(20-length(table[n].name)));
val (copy (stroka, 1, pos (';', stroka)-1), table[n].price, code_error);
if table[n].price > table[max_price].price then max_price:=n;
delete (stroka, 1, pos (';', stroka,1));
write (table[n].price:5,' ':10);
table[n].company:=stroka;
writeln (table[n].company);
end;
writeln;
writeln ('Максимально дорогой товар: ', table[max_price].name,', цена ', table[max_price].price);
close (f1);
assign (f2, 'tovar.dat');
rewrite (f2);
for i:=1 to n do write (f2, table[i]);
close (f2);
end.

2) Создать файл: "tovar.txt". Из данных этого файла будет создан в дальнейшем типизированный файл (в Вашем случае файл с именем "tovar.dat"). Примерное внутреннее содержание файла "tovar.txt" (переписать и добавить свое можно):

ноутбук Acer;26000;ООО Липа
планшет QF156;9800;АО Смольный
смартфон BQ551;31600;ООО Craft
наушники SVEN-300;900;Леруа Мерлен
наушники SVEN-400;1000;Леруа Мерлен
смартфон SQ520;32130;ООО Craft
ноутбук Acer;25000;ООО Смарт
ноутбук Asus;27500;ООО Липа
ноутбук Vaio;28000;ООО Смарт
ноутбук MacBook;24000;ООО Craft
ноутбук Acer 351;22000;ООО Липа
ноутбук Lenovo;26000;ООО Терминатор
ноутбук Lenovo;21000;ООО Липа