Выдает ошибку "exited with exitcode = 2"

type
zapis=^pt;
pt=record
x:integer; //положение подстроки в строке
y:integer; //строка, в которой нашли подстроку
next:zapis;
end;
var
head:zapis; //голова динамического списка
h,Rezhim, Otkat,i,n:integer;
f,f1:text;
str1,str2,s,c:string;
dlina:byte; //длина подстроки
count:word; //счетчик строк
 
procedure spisok; //Создание данамического списка
var
p:zapis;
begin
new(p);
p^.x:=pos(str1,s);
p^.y:=count;
p^.next:=head;
head:=p;
end;
 
procedure Reg(var s:string); //Приведение к общему регистру
var i:byte;
begin
for i:=1 to length(s) do
if s[i] in ['A'..'Z','А'..'Я']
then s[i]:=chr(ord(s[i])+32)
else
if s[i]='Ё'
then s[i]:='ё';
end;
 
//Основная программа
begin
assign(f,'Kursach.txt');
 
//Проверка содержимого файла
reset(f);
if eof(f)=true
then begin
write('Ошибка. Файл пуст');
readln;
close(f);
Halt;
end;
 
assign(f1, 'Kursach1.txt');
 
writeln('Select the operation mode');
writeln('1)Registr on');
writeln('2)Registroff ');
readln(Rezhim);
writeln('What replace?');
readln(Str1);
writeln('On what replace?');
readln(Str2);
 
//определениедлиныстроки, накоторуюзаменяем
writeln('Percent?');
readln(h); //Проценты
dlina:=length(str2);
dlina:=round(dlina*0.01*(100-h)); //вычисление новой длины, с заданными процентами
writeln('New dlina string ',dlina);
str2:=copy(str2,0,dlina); //Новая подстрока, после вычисления процентов
writeln('Replaced by ',str2);
 
if Rezhim=2 //Если выбран режим 2, приводим к общему регистру
then
Reg(str1);
 
//поиск подстроки
rewrite(f1);
s:=''; count:=1;
dlina:=length(str1);
new(head);
head:=nil; //создание головы списка
while not eof(f) do
begin //1
readln(f,s); //считываем строку из файла
c:=s;
if Rezhim=2
then
Reg(s);
if pos(str1,s)=0 then //если не нашли вхождение подстроки в считанной строке
begin //2
s:=c;
writeln(f1,s); //записываем эту строку в новый файл
end
else
begin //если нашли подстроку
while pos(str1,s)>0 do
begin
i:=i+1;
n:=pos(str1,s); //находим вхождение подстроки
spisok; //заносим в динамический список
if Rezhim=2
then
s:=c;
delete(s,n,dlina); //удаляем найденное вхождение
insert(str2,s,n); //вставляем новую подстроку
c:=s;
end; //закрытие цикла, когда подстрока найдена 
writeln(f1,s);
end; //закрытие 2
inc(count);
end; // закрытие 1
close(f);
close(f1);
 
{сохранение или откат изенений}
 
writeln('Save file?');
writeln('1)Yes 2)No');
readln(Otkat);
if Otkat=2
then
erase(f1) //удаляем файл
else
begin
erase(f);
rename(f1, 'Kursach.txt'); //переименновыем файл
assign(f1, 'Kursach.txt');
end;
//проверка: вывод динамического списка
{
whilehead<>nildo
begin
write(head^.x,' ');
writeln(head^.y);
head:=head^.next;
end; }
readln;
end.