Работа с файлами

[sancheszone]

Файл содержит сведения о провайдерах города: название, телефон службы технической поддержки, способ соединения, средняя скорость соединения, стоимость одного часа работы. Выведите сведения о провайдерах, которые предоставляют услуги по задаваемому способу соединения, и для них определите стоимость передачи 1 Мб. Среди всех сведений найдите провайдера с самой высокой скоростью соединения и провайдера с самой низкой стоимостью передачи 1 Мб.

Делал в паскале ABC поэтому не получалось никак вставить еще название провайдеров по сути оно и не нужно делал без него, Суть вопроса не в этом. Часть программы сделал:

program provider;
var
f:text;
tel:real;
skor:real;
bablo:real;
sposob:string[7];
sposob1:string[7];
pr:real;
begin
assign(f,'isx.txt');
reset(f);
writeln('телефон / скорость / цена за час / способ соиденения');
while not EOF(f) do
begin
readln(f,tel,skor,bablo,sposob);

writeln(tel:6:0,'   ',skor:6:0,'     ',bablo:6:0,'           ',sposob);
end;
close(f);
assign(f,'isx.txt');
reset(f);
writeln('Введите тип подключения');
readln(sposob1);
while not EOF(f) do
begin
readln(f,tel,skor,bablo,sposob);
if sposob1=sposob then begin
pr:=bablo/3600*skor;
writeln('-----------------------------------');
writeln('способ подкл / скорость / цена ');
writeln(sposob,'         ',skor,'      ',pr:0:2,'руб');
end;
end;
close(f);
end.

При компиляции получается вот такое (когда просят вводить способ подключения, вводим 1 пробел и пишим способ: флешка, кабель, модем)

я допустим выбрал флешку, вот вывелись результаты))

телефон / скорость / цена за час / способ соиденения
905911 904 70 кабель
903590 930 108 флешка
306590 654 68 кабель
785454 512 60 модем
780780 606 150 флешка
905432 128 95 модем
789450 1024 80 кабель
980640 256 120 флешка
904034 1001 98 модем
Введите тип подключения
флешка
-----------------------------------
способ подкл / скорость / цена
флешка 930 27.90руб
-----------------------------------
способ подкл / скорость / цена
флешка 606 25.25руб
-----------------------------------
способ подкл / скорость / цена
флешка 256 8.53руб

А вот как еще сделать "Среди всех сведений найдите провайдера с самой высокой скоростью соединения и провайдера с самой низкой стоимостью передачи 1 Мб."
стоимость передачи я вычеслил это переменная pr, текстоввый файл подкрепил к сообщению,

[Anatole]

Чтобы определить провайдера с максимальной скоростью можно поступить примерно так:

reset(f);
readln(f,max_tel,max_skor,bablo,sposob);
while not EOF(f) do
begin
readln(f,tel,skor,bablo,sposob);
if max_skor < skor then begin
  max_skor:=skor;
  max_tel := tel;
  end;
end;
writeln('-----------------------------------');
writeln('провайдер с максимальной скоростью ');
writeln(max_tel);

[sancheszone]

Спасиба а что означает переменная max_tel

[Anatole]

в ней храним номер телефона провайдера с максимальной скоростью. Ведь ничего другого чтоб отличить провайдеров у вас нет.

[sancheszone]

Ага, понял)