файлы, запись, сортировка, задача про студентов Опции

[Lucilda]

Обработка файлов данных. Исходные данные: ввести и сохранить в файле данные следующей структуры: ф.и.о. студента, номер группы, результаты сдачи сессии (5 экзаменов) . Организовать просмотр исходных данных и вывести список студентов, имеющих средний балл за сессию > 4.0 (сортировка по убыванию метод Шелла), с указанием номера группы и результатов по каждому экзамену.
Ввод и вывод данных организовать в ВИДЕ ТАБЛИЦ. Отладку программы производить на примере файла, состоящего не менее чем из 15 записей.

[volvo]

И что? Задание как задание... Что ИМЕННО вызывает затруднения?

[Lucilda]

а то что не могу ее написать.

program zapis3;
uses crt;
const k=3;
type
V=record
fio:string;
gr:integer;
mt,e,p,ek,ir:word;
sr:real;
end;
var
R:array[1..k] of V;
sr_bal:real;
t,s:^V;
z,i,n,m:integer;
spisok: file of V;
begin
assign(spisok,'D:\stud.dat');
m:=4; n:=n+8;
reset(spisok);
for i:=1 to k do;
begin
m:=4;
gotoxy(m,n);
write(R[i].fio);
 m:=m+12;
                 gotoxy(m,n);
                 write(R[i].gr);
                 m:=m+5;
                 gotoxy(m,n);

                 write(R[i].mt);
                 m:=m+5;
                 gotoxy(m,n);

                 write(R[i].e);
                 m:=m+5;
                 gotoxy(m,n);

                 write(R[i].p);
                 m:=m+5;
                 gotoxy(m,n);

                 write(R[i].ek);m:=m+5;
                 gotoxy(m,n);

                 write(R[i].ir);m:=m+5;
                 gotoxy(m,n);

                 write(R[i].sr);
                 n:=n+2;
                 end;
                 close(spisok);
                 writeln('najmi');
                 readln;
                 end.

это запись в файл, но он не записывается, вообще файл не создается. И не выводит средний бал!

[мисс_граффити]

тэги!
reset - не создает файл... только открывает готовый.