на Файл текстового типа

[antojke]

Из файла текстового типа переписать строки в другой файл в порядке возрастания их длин.(нужно без массива)

uses crt;
var
f,f1: text;
s: array [1..100] of string;
i,j,max,n: integer;
x: string;
begin
assign(f,'e:\1.txt'); {файл со строками}
assign(f1,'e:\2.txt');
reset(f);
rewrite(f1);
 
while not eof(f) do
begin
inc(n);
readln(f,s[n]);
end;
 
for i:=1 to n-1 do
 for j:=i+1 to n do
if length(s[i])>=length(s[j])
 then
  begin
   x:=s[i];
   s[i]:=s[j];
   s[j]:=x;
  end;
  
for i:=1 to n do
writeln(f1,s[i]);
 
writeln('Vse sdelano!');
close(f);
close(f1);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Zer0]

хм... пока что единственное что приходит в голову:
1) циклом до конца файла считываем по строке и ищем минимальную длину
2) вторым циклом проходимся по файлу и записываем во второй файл только те строки, длина которых равна минимальной и затирем их в исходном файле
3) Повторяем (1,2) до тех пор, пока файл не станет пустым

[Serge_Bliznykov]

в целом я согласен с алгоритмом, предложенным Zer0
только с одной существенной попровочкой.
Текстовый файл - это не файл прямого доступа - поэтому затиреть строку в середине файла - это достаточно нетривиальная задача.
Поэтому я бы предложил такой алгоритм:

МинимальнаяДлинаНаПредыдущемШаге := -1;
начало цикла
   МинимальнаяДлина := MaxInt;
   перейти на начало текстового файла 
   цикл пока не конец файла читать строки 
      если (длина(строки)>МинимальнаяДлинаНаПредыдущемШаге)
                    И (длина(строки) < МинимальнаяДлина) 
         тогда МинимальнаяДлина := длина(строки)
   конец цикла пока не конец файла
   if МинимальнаяДлина < MaxInt then начало блока
       переписать из исходного файла в файл назначения все строки,
            длина которых равна МинимальнаяДлина
       МинимальнаяДлинаНаПредыдущемШаге := МинимальнаяДлина 
   конец
конец цикла когда МинимальнаяДлина < MaxInt

p.s. мнократные проходы по текстовому файлу - это ОГРОМНЕЙШАЯ дыра в быстродействии программы. А почему нельзя массивы использовать?!
и, если нельзя использовать массивы, надо использовать любые другие структуры, чтобы разместить (отсортировать) хотя бы часть файла в памяти...