Задача Turbo pascal

[wolf2783]

Задача в turbo pascal
Дано целое число n и массив содержащая n элементов

Элементы массива - это записи, хранящиеся в текстовом файле, для которых компонентами являются
группа студентов
a)Фамилия
b)Экзаменационная оценка предмета
c)Номер студента в журнале

Выведите фамилии студентов, получивших оценку выше К числа. имеющих номера от 10 до 20 журналe

program N3;
type StudentRecord = record 
surname: String; 
point,number: Integer;
end;
var textFile: file of StudentRecord; i,n: integer;
student: StudentRecord; 
begin
assign(textFile,'C:/Files/textFile.dat');
rewrite(textFile);
write('Enter students numbers: '); 
readln(n);
writeln('Enter students points'); 
for i:=1 to n do 
begin
write('Surname: '); 
readln(student.surname); 
write('point: ');
readln(student.point); 
write(textFile, student); 
end; 
close(textFile);
writeln('Data is stored in file'); readln;
end.

Если не сложно помогите завершить код. Уже 100 раз пробовал. выдает ошибку

[WorldMaster]

Сообщение от wolf2783

выдает ошибку

Какую?

[wolf2783]

Вывод фамилий не получается

[ViktorR]

Процедура ReWrite создает новый внешний файл с именем, назначенным в переменной F. Если внешний файл с тем же самым именем уже существует, то он удаляется, а на его месте создается новый пустой файл. Если F уже открыт, то он сначала закрывается, а затем вновь создается. Текущая позиция указателя устанавливается на начало пустого файла.

Предположу, что вам надо читать файл, но в этом случае следует использовать процедуру reset().
А что, в файле остались записи? Он не очистился?

[wolf2783]

Он не очистился

[WorldMaster]

Сообщение от wolf2783

Вывод фамилий не получается

Конкретнее то можете?? Скриншот показать например??
А то создается впечатление что нашли где то код и пытаетесь как то заставить его работать абсолютно не понимая ни одной строчки.

[wolf2783]

А если все удалю. Скок стоит заказать код за оплату у вас?

[digitalis]

Вот с этого и начинать надо было "Нашёл я в сети какую-то хрень, вроде похожая, а не жужжит. О чём в ней написано - ХЗ"

[WorldMaster]

Сообщение от wolf2783

Скок стоит заказать код за оплату у вас?

Надо в раздел фриланс перенести тогда. Либо сразу по контактам можете обращатся, но лично я беру дорого. ))

[ViktorR]

Если внимательно посмотреть на приведённый код, то там нет операций чтения из файла.
Там, в цикле, формируются поля для записи и выполняется запись в файл полученной информации.

program N3;
type StudentRecord = record   {Формируем структуру записи}
surname: String;              {ФИО}
point,number: Integer;        {Оценка, номер}
end;
var textFile: file of StudentRecord; i,n: integer;
student: StudentRecord; 
begin
assign(textFile,'C:/Files/textFile.dat');
rewrite(textFile);
write('Enter students numbers: ');   {Запрашиваем число студентов}
readln(n);
writeln('Enter students points');    {Предупреждаем о начале цикла для ввода данных}
for i:=1 to n do 
begin
   write('Surname: ');               {Запрашиваем ФИО}
   readln(student.surname); 
   write('point: ');                 {Запрашиваем оценку}
   readln(student.point);
   student.number := i      {Это добавлено:  сохранение номера студента} 
   write(textFile, student);         {Пишем в файл}
end; 
close(textFile);                     {завершаем работу с файлом}
writeln('Data is stored in file');
readln; 
end.

Это подготовка файла.
Далее надо читать файл в заданную выше структуру, проверять, что номер студента находится в заданном диапазоне, а оценка выше заданной.
Типа:

if student.number >= 10 and student.number <= 20 and student.point > K then
    <тут оператор вывода student.surname>

Так думаю, что если слегка включить мозг, то дописать недостающие части можно и самому.