Необходимо сделать удаление как в динамическом массиве, сложность в том что массив обычный

[Сеня2007]

Необходимо сделать удаление как в динамическом массиве, сложность в том что массив обычный. Прогу я всю написал кроме этого:

uses crt;
type
type_rec=record
fio:string[15];
nazvanie:string[20];
god:word;
end;

var
f_in,f_out:text;
spis:array[1..1000] of type_rec;
c:array[1..100] of string[15];
m:array[1..100] of string[15];
x:array[1..100] of string[20];
s:array[1..100] of word;
cy:string[15];
dy:string[20];
kol_zap,i:word;
zap:type_rec;
key:byte;
b:array[1..1000] of word;
y,f:integer;

BEGIN
clrscr;
assign(f_in,'text.dan');
reset (f_in);
i:=0;
while not Eof(f_in) do
begin inc(i);
with spis[i] do
readln(f_in,fio,nazvanie,god);
end;
kol_zap:=i;
writeln('Zapisey:=',kol_zap);
writeln;

assign(f_out,'sor.dan');
rewrite(f_out);
for i:=1 to kol_zap do
with spis[i] do
begin
writeln(fio:15,nazvanie:20,god);
c[i]:=fio;
x[i]:=nazvanie;
b[i]:=god;
end;
writeln;

for i:=1 to kol_zap do
if (b[i]<1985) and (x[i]<>'Ivanov..') then
begin
s[i]:=b[i];
m[i]:=c[i];
f:=f+1;
end;

repeat
key:=0;
for i:=1 to f do
with spis[i] do
if s[i]<s[i+1] then
begin
y:=s[i];
s[i]:=s[i+1];
s[i+1]:=y;
cy:=m[i];
m[i]:=m[i+1];
m[i+1]:=cy;
dy:=x[i];
x[i]:=x[i+1];
x[i+1]:=dy;
key:=1;
end;
until key=0;
writeln('Uporydochenniy massiv');
for i:=1 to f do
begin
write(m[i]:15,x[i]:20,s[i]:6);
writeln;
end;
readkey;
END.

Вот на всякий случай само залдание:
Условие:
Создать текстовый файл, состоящий из записей, имеющих заданную структуру (см. ваш вариант).
Написать программу, решающую следующие задачи:
1) Занесение записей из текстового файла в массив записей с одновременным определение числа записей во входном файле.
2) Вывод на экран полученного массива.
3) Поиск в массиве и вывод на экран записей по заданному полю.
4) Удаление из массива записей в соответствии с заданием.
5) Вывод на экран оставшегося массива.
6) Упорядочение массива по заданному полю.
7) Вывод упорядоченного массива на экран и в новый текстовый файл.
Все выводимые на экран и в файл результаты должны быть снабжены
заголовками, поясняющими этот результат и оформлены в виде таблиц.


Задание:
Фамилия и инициалы автора Название книги Год издания
15 символов 20 символов число

Поиск и вывод на экран записей о всех книгах, изданных до 1985 года.
Удаление записей о книгах, с фамилией автора “Иванов”.
Упорядочение массива по убыванию года издания.


Помогите пожалуйста!!!

[Utkin]

Ну можно не удалять из массива физически, а просто сделать пометку - удален. Можно удалять следующим образом - перезаписывать последним элементом, а последний элемент считать свободным. В следующий раз предпоследним и т.д.

[Сеня2007]

В том то и дело что как это сделать я незнаю. Пытался а толку нет.

[Stilet]

В type_rec добавь еще поле Deleted:boolean
Когда захочешь элемент удалить просто выставь в его поле True, а во всех циклах, которые проходят по массиву, поставь вначале

if spis[i].deleted then continue

Уловил месседж?