Получить названия игрушек, цена которых не превышает 4 руб. и которые подходят детям 5 лет - Turbo Pascal - Ответ 14148716

program Zapis14A;
uses crt;
type igr = record
         n: string;
         s: integer;
         dm,db: integer;
     end;
var f: file of igr;
    b: igr;
    i,n: integer;
 
 
procedure vyvod(str,put: string);
var t: file of igr;
    a: igr;
    j: integer;
begin
     writeln(str);
     assign(t,put);
     reset(t);
     j:=0;
     while not eof(t) do
     begin
          read(t,a);
          j:=j+1;
          writeln('Игрушка №',j,': название - ',a.n:11,'; стоимость - ',a.s:7,' к. ; детям от ',a.dm,' до ',a.db,' лет');
     end;
     readln;
     close(t);
end;
 
begin
     clrscr;
     assign(f,'f.dat');
     rewrite(f);
     write('Введите количество игрушек n=');
     readln(n);
     writeln('Заполнение файла:');
     for i:=1 to n do
     begin
          writeln('Игрушка №',i,':');
          write('  название - ');
          readln(b.n);
          write('  стоимость (в коп.) - ');
          readln(b.s);
          writeln('  возрастные ограничения:');
          write('    от - ');
          readln(b.dm);
          write('    до - ');
          readln(b.db);
          write(f,b);
     end;
     writeln;
     writeln('Заполнение файла завершено!');
     readln;
     close(f);
     clrscr;
     reset(f);
     vyvod('Вывод файла f:','f.dat');
     writeln('Вывод наз-ния игрушек, цена которых не больше 4 руб. и который подходят детям 5 лет:');
     while not eof(f) do
     begin
          read(f,b);
          if (b.s<=400) and (b.dm<=5) and (5<=b.db) then writeln('  ',b.n);
     end;
     readln;
     close(f);
end.