Здравствуйте, такая проблема: нужно удалить определенную запись в файле. Я делаю таким образом: сперва удаляю елемент в динамическом массиве, а потом пытаюсь переписать этот массив заново в файл. Но у меня вылетает ошибка: Range check error. Подскажите, пожалуйста, в чем может быть проблема?
Procedure delStud(var stud:TArr);
var
filename:string;
i,ind:integer;
begin
write('Введите порядковый номер студента: '); readln(ind);
for i:= ind to high(stud) do
stud[i-1] := stud[i];
SetLength(stud,length(stud)-1);
filename:=('H:\2 sem\progr\lab_works\Laba3\studMain.bin');
AssignFile(f1,filename);
Reset(f1);
i:=0;
while (not Eof(f1)) and (i < Length(stud)) do
begin
write(f1, stud[i]);
i:=i+1;
end;
Closefile(f1);
end;