Pascal База данных

[pngfree]

Создал Базу данных в паскале и записал ее в файл (file of record). Не могу отладить вторую программу, которая должна считывать инфу из созданного файла и выводить ее. Помогите!

[iborisov]

В принципе, по тексту кода в файле WorkP.txt на беглый взгляд только одна существенная ошибка - неправильно организованный цикл repeat - until. Ваша программа из него вообще не выйдет пока в качестве переменной якобы управляющей выходом будет K, а в коде прописан выход при условии N=4. К тому же сам ввод K надо в цикл "всунуть". Например так:

repeat
  \\ clrscr?
  writeln('1. Budget more than $ 100');
  writeln('2. All oscars');
  writeln('3. Middle year');
  writeln('4. End');
  writeln('Input 1..4');
  readln(k);
  if (k > 0) and (k < 4) then
      begin
        case k of 
           \\ ...
        end;
      end;
until k=4;

В остальные подробности не вникал, так как с виду всё должно работать.