Помогите с задачей по Turbo Pascal плиз

[Tiburon]

задача такая надо написать такую программу,которая работает в одном из двух режимов.
Если в текущем каталоге имеется файл Assort, то вывести на экран названия наиболее дорогих дисков (цена которых отличается от цены самого дорогого диска не более чем на 50 руб).В противном случае создать фаил с таким именем, содержащий сведения о CD-дисках:название,стоимость в руб.
помогите хотябы отладить код проги такой
program primer1;
uses crt;
type
Cd=record
name:string[20];
st:integer;
end;
var q:cd;
max:integer;
l:string;
j:integer;
f: file of cd;
o:string;
i:integer;
p:array[1..10]of cd;
begin
{$i-}
assign(f,'assort.txt');
reset (f);
{$I+}
if IOResult<>0 then
begin


assign(f,'assort.txt');
rewrite(f);
for i:=1 to 10 do begin
writeln(' ');
readln(q.name);
writeln(' ');
readln(q.st);
write(f,q);
end;
end
else
begin

read(f,q);
max:=q.st;
while not eof(f) do begin
read(f,q);
if max<q.st then
begin max:=q.st;
o:=q.name;




end;
write(o);
if ( max-q.st<50) and( max-q.st>0)
then
begin
l:=q.name;
writeln(l);
readln;


end;
end;

end

end.

[Tiburon]

А я так ждал надеялся и верил на ответ

[Serge_Bliznykov]

ну... раз так надеялся и ждал...
вот решение (я позволил себе немножко упростить Ваш алгоритм..)

program primer1;
uses crt;
type
  Cd = record
    name: string[20];
    st: integer;
  end;
var
  q: cd;
  max: integer;
  i: integer;
  f: file of cd;
begin
  assign(f, 'assort.txt');
{$I-}
  reset(f);
{$I+}
  if IOResult <> 0 then
  begin
    rewrite(f);
    WriteLn('Создаём файл assort.txt  на 10 записей...');
    for i := 1 to 10 do begin
      writeln(' Введите название диска:');
      readln(q.name);
      writeln(' Введите стоимость диска (целое число в руб.):');
      readln(q.st);
      write(f, q);
    end;
  end
  else 
  begin
    {если файл пуст - то делать нам нечего!}
    if Eof(f) then begin
      Close(f);
      WriteLn('файл с данными пуст. Делать тут нечего!');
      Halt;
    end;
       
    {определим стоимость самого дорого диска 
      (пока название CD нас не интересует, 
        только стоимость...)}
    max := -MaxInt;
    while not eof(f) do begin
      read(f, q);
      if max < q.st then max := q.st;
    end;
    
    {второй проход по файлу с данными}
    Seek(f,0); {установим указатель в файле на начало}
    
    {Выведем шапку таблицы}
    WriteLn;
    WriteLn('+----------------------+---------+');
    WriteLn('|     Имя диска        | Стоим-ть|');
    WriteLn('+----------------------+---------+');
    while not eof(f) do begin
      read(f, q);
      if Abs(q.st-Max)<=50 then
        WriteLn('| ',q.Name:20,' | ',q.St:7,' |');
    end;
    WriteLn('+----------------------+---------+')
  end;
  Close(f);
end.

p.s. А для типизированных файлов лучше придумывать своё расширение, TXT - не совсем подходящий выбор. Хотя, для программы это абсолютно всё равно ;-)
Просто не надо пытаться открыть этот файл в текстовом редакторе :-)