Помогите организовать текстовый файл, состоящий из n строк ...

[InfStudent]

Так я ж по этому алгоритму тебе код и написал))) Бежим по файлу  когда прочли  столько же раз сколько составляет номер строки просто ее не пишем а дальше опять бежим все записывая

[InfStudent]

Или я тебя неправильно понял?

[bifshtex]

просто я набрал код, а он не работает((
и еще мы многое даже не проходили(не было в курсе)
например модуль SysUtils;
дальше f:textfile, такого тоже у нас не было, я знаю описание текст.,типиз. и нетипиз. файлов :text, :file of.. и :file соотственно, вот этой команды тем более не знаю IntToStr(k), точнее мы в нашем курсе обучения этого нет..

[bifshtex]

как мне сделать эту задачу, если допустим сначала в текст. редакторе создать файл, а потом изменять?

[InfStudent]

А ты на turbo pascal? А то я то писал на базе Delphi это просто в некотором роде pascal только улучшенный и он конечно немного отлчиается  

[InfStudent]

А то я поставлю turbo pascal а то я смотрю во многих универах на  такой древности работают, но мне нужно некоторое время чтобы модифицировать прогу под него, а то я с ним не работал

[InfStudent]

Сути дела так же не меняет если я правильно понимаю условие задачи:
 Пользователь сам вводит с клавиатуры номер строки, которую хочет удалить. Учитывая свойство инструкции writeln, а именно то что она считывает каждый раз следующую строку алгоритм вообще менять не надо))
 

[bifshtex]

да, я на турбо
мне кажется,ты немного не понял задачу..
я должен ввести номер строки, и вместо этой строки(номер которой я ввел) нужно записать строку, которую я тоже ввожу с клавиатуры

[bifshtex]

uses crt;
var
f1,f2:text;
str_file,s2:string;
i,k:byte;
begin
clrscr;
write('input name file: ');
readln(str_file);

assign(f1,str_file);
reset(f1);
k:=0;
while not eof(f1) do
 begin
 readln(f1,str_file);
 inc(k);
 end;
close(f1);
reset(f1);
assign(f2,'dop.txt');
rewrite(f2);
writeln('kakuy stroku hotite udalit?');
readln(k);
writeln('vvedite stroku');
readln(s2);
readln
end.


вот я шапку сделал, только вот не знаю как правильно записать в новый файл, то что мне нужно

[bifshtex]

и до этого я создал файл в текстовом редакторе

[InfStudent]

А все извини понял. Ну это решить просто. Надо добавить блок else и там написать инструкции,которые запишут строку введенную пользователем с клавиатуры в buf readln(buf), а дальше записываем строку buf в файл при помощи writeln.Ну а код генерирующий файл убираем тогда Вот код:
if i<>l then //сколько раз читали?Если число итераций соответсвует номеру строки не записываем ее
begin
writeln(f1,buf);
end
else
begin
readln(buf);
writeln(f1,buf);
end;
  

[bifshtex]

а не сможешь мою продолжить?

[InfStudent]

Попробую за сегодня сделать, но это не за 5 мин конечно)) А вобще почитай правила работы с файлами и просто смотри мой код, может сам сможешь. Дерзай!) 

[bifshtex]

хорошо, буду пробовать=)
ну, ты тож не забывай про эту задачу=)

[InfStudent]

Да я уже поставил древний жутко древний turbo pascal 7.0 По сравнению с Delphi это просто жуть))) Но кстати код надо править немного