Создание и редактирование файла

Const n=2;
var
nazv:array[1..n] of string[20];
i,x:integer;
F:text;
z:string[20];
begin
nazv[1]:='лоыврфыловарлыв';
nazv[2]:='олыарлвоарфводцр';
Assign(F, 'Файл.txt');
     Rewrite(F);
     for i:=1 to n do
     begin
     Writeln(F,nazv[i]);
     end;
     close(F);
writeln('Ваша 2-я строка:',nazv[2]);
write('Изменения: '); Readln(z);
nazv[2]:=z;
Assign(F, 'Файл.txt');
     Rewrite(F);
     nazv[2]:=z;
     for i:=1 to n do
     begin
     Writeln(F,nazv[i]);
     end;
     close(F);
writeln('Хитрый ход, выписываем все элементы кроме первого (удаление,возможно)');
Writeln('Какую строку удалить:');Readln(x);
Assign(F, 'Файл.txt');
     Rewrite(F);
     nazv[2]:=z;
     for i:=1 to n do
     begin
     if x<>i then Writeln(F,nazv[i]);
     end;
     close(F);
end.