(PascalABC.NET)подскажите где я ошибся

[destra1j]

var f,f1:text;
s:string;
begin
  assign(f,'f.txt');
  rewrite(f);
  writeln('Вводите строки файла(пустая строка конец ввода):');
  repeat
    readln(s);
    if s<>''then writeln(f,s);
   until s='';
   close(f);
   reset(f);
   assign(f1,'f1.txt');
   rewrite(f1);
   while not eof(f) do 
   begin
     readln(f,s);
     while length(s)>0 do delete(s,length(s),1); 
     writeln(f1,s);
     while(s[length(s)]='')do delete(s,length(s),1);
     writeln(f1,s);
   end;
   close(f);
   close(f1);
  writeln('Готово');
end.

Программа должна записывать строки в файл а потом убирать пропуски в конце его строчек.Программа должна записывать строки до тех пор пока пользователь не введет пустую строчку.Она запускается но когда вводится пустая строка она не перееходит так сказать к фазе убирания пропусков а требует больше строчек .

[Serge_Bliznykov]

while length(s)>0 do delete(s,length(s),1);

это что за ужас, летящий на крыльях ночи?!!

сравните со строчкой, которую Вам давал:

Сообщение от Serge_Bliznykov

     while (Length(s)>0) and (s[Length(s)]=' ') do Delete(s, Length(s), 1);

никаких отличий не видите?!

Ваш код делает из любой строки - пустую
while length(s)>0 do delete(s,length(s),1);
пока длина строки больше нуля делать удаление последнего символа строки.
вместо этого цикла можно просто написать
s:='';

но это ещё не всё.
потом Вы пишете цикл:

while(s[length(s)]='')do delete(s,length(s),1);

у пустой строки (вы же её только что обнулилил двумя строчками выше) - длина равна нулю. в вашем Pascal ABC.NET обращение к s[0] выводит ошибку выхода индекса за пределы массива (и правильно, кстати, делает).
Всё. Финиш. программа прерывается.

Зачем Вам эти два цикла while по строке s и что они должны делать?!

[destra1j]

да уж я и не думал что я так сильно начудил просто уменя писало что нельзя использовать and ну я и подумал что можно так сделать.

[Alar]

Сообщение от destra1j

да уж я и не думал что я так сильно начудил просто уменя писало что нельзя использовать and ну я и подумал что можно так сделать.

скобки может дополнительные захотел? и так программировать точно нельзя - у меня не заработало - удалю пол кода, авось заработает

[destra1j]

так у меня с and не работает как мне решить эту проблему?

[Аватар]

как мне решить эту проблему?

Правильно код от Сержа скопипастить

[Serge_Bliznykov]

Сообщение от destra1j

так у меня с and не работает как мне решить эту проблему?

Извините, но Вы не пробовали В ТОЧНОСТИ набрать код, который я написал?!
Со всеми знаками, включая скобочки?!

я проверил, код работает в Pascal ABC.NET

   while not eof(f) do 
   begin
     readln(f,s);
     while (Length(s)>0) and (s[Length(s)]=' ') do Delete(s, Length(s), 1);
     writeln(f1,s);
   end;

p.s. если Вам сложно правильно набрать код, так может быть, проще выделить его на форуме мышкой, скопировать в буфер обмена, открыть код программы и ВСТАВИТЬ код в окошко редактора?!!