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

program zad_5;
uses crt;
Type Data=record
name:string;
instyear:integer;
kolchmes:integer;
tarif:string;
End;
 
var
s: Data;
Spisok : file of Data;
Name:string;
a:real;
b,n,i, count, count1 : integer;
c:char;
 
begin
assign(Spisok, 'tovari.txt');
repeat
writeln('Операции: ');
writeln('1: Создание');
writeln('2: Просмотр');
writeln('3: Добавление новых данных');
writeln('4: Исправление данных');
writeln('5: Выполнение требуемых операций');
writeln('6: Выход');
readln(n);
case n of
1:
begin
rewrite(Spisok);
Writeln('Кол-во товара: ');
Readln(count1);
For i:=1 to count1 do
Begin
writeln('Наименование ', i,'-го товара : ');
readln(s.name);
writeln('Количество единиц ', i,'-го товара: ');
readln(s.instyear);
writeln('Цена единицы ', i,'-го товара: ');
readln(s.kolchmes);
writeln('Дата поступления ', i,'-го товара на склад: ');
readln(s.tarif);
write(Spisok, s);
end;
close(Spisok);
writeln('Файл создан');
end;
2:
begin
reset(Spisok);
while not eof(Spisok) do
begin
read(Spisok, s);
for i:=1 to count+count1 do
begin
writeln('Наименование товара: ', s.name);
writeln('Количество единиц товара: ', s.instyear);
writeln('Цена единицы товара: ', s.kolchmes);
writeln('Дата поставления на : ', s.tarif);
Writeln;
end;
end;
close(Spisok);
end;
3:
begin
rewrite(Spisok);
Writeln('Кол-во новых данных: ');
Readln(count);
For i:=count1+1 to count1+count do
Begin
writeln('Наименование ', i,'-го товара : ');
readln(s.name);
writeln('Количество единиц ', i,'-го товара: ');
readln(s.instyear);
writeln('Цена единицы ', i,'-го товара: ');
readln(s.kolchmes);
writeln('Дата поступления ', i,'-го товара на склад: ');
readln(s.tarif);
write(Spisok, s);
end;
close(Spisok);
writeln('Новые данные добавлены');
end;
4:
begin
Reset(Spisok);
while not Eof(Spisok) do begin
Read(Spisok,s);
Seek(Spisok,FilePos(Spisok)); // возврат указателя назад
Write(Spisok,s);
end;
close(Spisok);
end;
5:
begin
reset(Spisok);
for i:=1 to count do
if s.kolchmes>10000 then writeln('Наименование: ', s.name);
close(Spisok);
end;
 
6:
begin
writeln('Программа завершена');
end;
end;
writeln;
until n = 6;
end.