Помогите с программированием обработки файлов (Pascal)

[Дима82]

Программирование операций обработки файлов

Выбор студентов, сдавших сессию на "4" и "3"

При каждом запуске про¬граммы, а читаются из текстового файла на диске. Этот файл перед запуском программы необходимо создать с помощью специальной программы, которая вводимые с клавиатуры значения полей записей помещает в файл записей.
Записи, выбранные согласно условию из входного файла,
должны быть помещены в выходной файл записей, который созда
ется на диске.



Помогите решить эту задачу, никак не пойму как это сделать... Срочно надо на завтра...

[eoln]

При каждом запуске про¬граммы, а читаются из текстового файла на диске. Этот файл перед запуском программы необходимо создать с помощью специальной программы, которая вводимые с клавиатуры значения полей записей помещает в файл записей.

Так файл исходный какой?
1) создание первого файла

type
  zap = record
    fio :string[30];
    ball: byte;
  end;
var
  f1: file of zap;
  z: zap;
  ...
begin
  assign(f1, '1.dat');
  rewrite(f1);
  for i :=1 to 10 do // 10-кол-во человек
  begin
    write('fio = '); readln(z.fio);
    write('ball = '); readln(z.ball);
    write(f1, z) //запись в файл 1
  end;
  close(f1);
end.

2) выборка учащихся

type
  zap = record
    fio :string[30];
    ball: byte;
  end;
var
  f1, f2: file of zap;
  z: zap;
  ...
begin
  assign(f1, '1.dat');
  reset(f1);
  assign(f2, '2.dat');
  rewrite(f2);
  while not eof(f1) do
  begin
    read(f1, z); //читаем первый файл
    if (z.ball=4) or (z.ball=3) then write(f2,z); //записываем во второй
  end;
  close(f1);
  close(f2)
end.

Код не тестировал

[puporev]

Чтобы понять как это делать, нужно книжки умные читать, там это написано и примеры есть.
Чтобы ты сильно не донимал вопросами на этот раз, привожу решение с максимально возможными комментариями. Поскольку вы не соизволили привести какие-либо условия задачи, принял, что в записи участвуют фамилия студента и его оценки по пяти предметам. Если условие немного другое, то легко подправишь.

uses crt;
type Tstud=record  //создаем запись с полями
           fam:string[20];  //фамилия
           ball:array[1..5] of 2..5; //оценки по пяти предметам
           end;
var sp:array[1..30] of Tstud; //массив записей
    f,g:file of Tstud;  //типизированные файлы
    n,i,j,k,m:integer;
begin
clrscr;
assign(f,'stud1.dat'); //создаем первый файл
rewrite(f);             //открываем для записи
write('Kolichestvo studentov: ');
readln(n);
for i:=1 to n do
   begin
     writeln('Student ',i);    //заполняем массив
     write('Familia: ');readln(sp[i].fam);
     write('Ocenka 1: ');readln(sp[i].ball[1]);
     write('Ocenka 2: ');readln(sp[i].ball[2]);
     write('Ocenka 3: ');readln(sp[i].ball[3]);
     write('Ocenka 4: ');readln(sp[i].ball[4]);
     write('Ocenka 5: ');readln(sp[i].ball[5]);
     write(f,sp[i]);  //записываем его в файл
   end;
close(f);  //закрываем файл
reset(f);   //открываем для чтения
n:=0;
while not eof(f) do
   begin
    n:=n+1;
    read(f,sp[n]); //считываем записи из файла в массив
   end;
close(f);  //закрываем файл
writeln;
assign(g,'stud2.dat');//создаем второй файл для записи
rewrite(g);
writeln('Sdali na 3 i 4:');
writeln;
for i:=1 to n do
   begin
    k:=0;
    for j:=1 to 5 do
     if (sp[i].ball[j]=3)or(sp[i].ball[j]=4)then
       begin
         k:=k+1;
       end;
    if k=5 then  //если все оценки 3 и 4 то
       begin
        write(sp[i].fam,' ');//выводим на экран фамилию
        for m:=1 to 5 do
        write(sp[i].ball[m],' ');//выводим все оценки
        writeln;
        write(g,sp[i]);//записываем во второй файл
       end;
  end;
readln;
close(g);//закрываем его
end.

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