У меня вопрос такой(Pascal)

[Дима82]

У меня вопрос такой(обработка файлов):
"Перестановка в конец текста строк с заданным символом."

Какой алгоритм должен быть для перестановки в конец текста строк с заданным символом?

[puporev]

Выбрать такие строки в один массив, а все остальные в другой. Затем переписать файл, вводя сначала строки без символов, потом строки с символом.

[Дима82]

Не понял как это?

Program Lb9;
Uses crt;
Var file1,file2,s,s1:string;
    f1,f2:text;
    n:integer;
Begin
clrscr;
write('Input file= ');
readln(file1);
write('Output file= ');
readln(file2);
assign(f1,file1);
reset(f1);
if ioresult<>0 then begin
 write('File not found');
 readln;
end;
assign(f2, file2);
rewrite(f2);
//-----?
write('s1: ');
readln(s1);
while not eof(f1) do begin
 readln(f1, s);
//-----?
  writeln(f2, s)
 end;
 close(f1);
 close(f2);
End.

[puporev]

1.Добавь переменную c:char; это будет заданный символ.
2.Объяви два строковых массива s1,s2:array[1..50]of string;
3.При чтении файла:
если в строке есть символ, записываешь в массив s1,
если нет - в массив s2
считаешь количество тех строк и других, чтобы определить размеры массивов
4. В новый файл записываешь сначала один массив, потом другой, например:

 for i:=1 to n do
    writeln(g,s1[i]);
   for i:=n+1 to n+m do
    writeln(g,s2[i]);

Вот примерно так.

[Дима82]

Что-то я намудрил, что только не переправлял, исправьте пожалуйста программку...

Program Lb9;
Uses crt;
Var file1,file2:string;
    s1,s2:array[1..50] of string;
    f1,f2:text;
    n,m:integer; g:char;  i:1..50;
Begin
clrscr;
write('Input file= ');
readln(file1);
write('Output file= ');
readln(file2);
assign(f1,file1);
reset(f1);
if ioresult<>0 then begin
 write('File not found');
 readln;
end;
assign(f2, file2);
rewrite(f2);
while not eof(f1) do begin
for i:=1 to n do
writeln(g,s1[I]);
for i:=n+1 to n+m do
writeln(g,s2[i]);
 readln(f1, g);
  writeln(f2, g)
 end;
 close(f1);
 close(f2);
End.

[puporev]

Ты меня извини, но ты написал ерунду. Как ты узнал, есть символ в строке или нет. Ты даже строку не прочитал, и вообще когда пишешь, нужно рассуждать, думать что за чем идет, что каждая строчка, каждое слово в коде означают, а тебя набор служебных слов и ничего более.
Я поторопился, неправильно в конце ввод в файл написал, ты без всяких переписываешь. Вот смотри как нужно, а ночь начинается, некогда обмениваться постами.

uses crt;
var f,g:text;
    s1,s2:array[1..50]of string;
    i,j,n,m:byte;
    s:string;
    c:char;
begin
clrscr;
assign(f,'text1.txt');
reset(f);
write('Simvol: ');readln(c);
n:=0;m:=0;
while not eof(f) do
   begin
     readln(f,s);//считываем строку
     j:=0;
     for i:=1 to length(s)do
     if s[i]=c then j:=j+1;//считаем количество заданных символов в строке 
     if j=0 then
         begin
           n:=n+1;
           s1[n]:=s;//если символов нет s1[n]
         end
     else if i>0 then
        begin
          m:=m+1;
          s2[m]:=s; //если символы есть в s2[m]
        end;
    end;
close(f);
assign(g,'text2.txt');
rewrite(g);
for i:=1 to n do//вводим строки без символов
writeln(g,s1[i]);
for i:=1 to m do
writeln(g,s2[i]); //вводим строки с символами
close(g);
writeln('Fail text2 zapisan!');
readln
end.

Переменные можешь поменять на свои.