работа с файлом.информация по турфирме.Записи(record)

[odinchik]

ну в задании конкретно не было сказано.
в идеале, я хотела бы понять как делать, если файл текстовый и если типизированный.
где моя губозакаточная машинка?

[Stilet]

вам не кажется, что вы не совсем правы?

Кажется, но задание автора я точно не знал когда отвечал, и уверен что и автор в тот момент его толком не знала, потому и ответил согласно прикрепленному файлу.

где моя губозакаточная машинка?

Насчет текстовиков я написал ответ.
Насчет типизированных файлов тебе нужно почитать про инструкцию file of <тип>
К примеру:

var f:file of tabl;
begin assign(f,'file')reset(f);

while not eof(f) do begin
 read(f,ved[k]); if ved[k].price<ved[min].price then min:=k;
 inc(k);
end;

close(f);
end;

Это в случае с типизацией файла.

[Vanta11a]

Сделать запрос при запуске программы, какой файл будет использоваться, на основании ответа выбрать алгоритм (через if).
Например:

writeln("Введите тип файла: 1 - текстовый, 2 - типизированный");
readln(file_type);
if (file_type = 1) then
*алгоритм для текстового*
else
*алгоритм для типизированного*

[odinchik]

Сообщение от Stilet

Кажется, но задание автора я точно не знал когда отвечал, и уверен что и автор в тот момент его толком не знала, потому и ответил согласно прикрепленному файлу.

Насчет текстовиков я написал ответ.
Насчет типизированных файлов тебе нужно почитать про инструкцию file of <тип>
К примеру:

var f:file of tabl;
begin assign(f,'file')reset(f);

while not eof(f) do begin
 read(f,ved[k]); if ved[k].price<ved[min].price then min:=k;
 inc(k);
end;

close(f);
end;

Это в случае с типизацией файла.

вот, это как раз больше всего похоже на то,что должно получиться)