Задача по файлам, Помогите исправить Опции

[Roise]

Знач так, дан файл f компонентами которого являеются целые числа. Файл создается с такими компонентами y = -5 + random (10). Сформировать новый файл g следующим образом: переписать содержимое файла f так, что бы сначала шли положительные числа, потом нули, а потом отрицательные числа, сохраняя порядок следования чисел.
Криво, косо, но вот что получилось:

Program Raz3_3;
uses crt;
var
 f1,f2,f3,f4:text;
 x1,t,l,y,k,i,s,n:integer;
Begin
 clrscr;
 assign (f1,'file.txt');
 rewrite (f1);
 for k:=1 to n do
  begin
  y:=-5+random(10);
  write(f1,y,' ');
  end;
 s:=0;
 l:=0;
 t:=0;
 reset (f1);
 assign (f2,'posit.txt');
 assign (f3,'zero.txt');
 assign (f4,'negat.txt');
 reset (f1);
 rewrite (f2);
 rewrite (f3);
 rewrite (f4);
 for i:=1 to n do
  begin
  read (f1, x1);
  if x1>0 then
   begin
   write (f2,x1,' ');
   t:=t+1;
   end
  else
   begin
   if x1=0 then
    begin
    write (f3,x1,' ');
    s:=s+1
    end
   else
    begin
    write (f4,x1,' ');
    l:=l+1;
    end;
   end;
  end;
  reset (f3);
  append (f2);
  for i:=1 to s do
   begin
   read (f3, x1);
   write (f2,x1,' ');
   end;
  close(f1);
  close(f2);
  close(f3);
  close(f4);
 end.

Пли-и-из, оч прошу помочь тугодуму заставить это сырое нечто работать :molitva:

ЗЫ Эх, мне бы еще научиться, как сделать так, что бы найти в текстовом файле строкус максимальным количеством слов и вывести ее на экран, но я понимаю, что за бесплатно таки вещи не делаются... Но если вдруг очень добрая и бескорыстная душа найдется... -___-

[mafia1232]

получилось так , но явно где-то ошибка. она делает файл чистка чистым полностью.

program p11;
uses crt;
var
   f1,f2:text;
   s:string;
   i,bword,count,count1:integer;

Begin
   clrscr;
Assign (f1,'z5.txt');
reset(f1);
Assign(f2,'chistka.txt');
Rewrite(f2);
While not eof(f1) do
      begin

   readln(f1,s);
   i:=1;
   count:=0;
   while i<=length(s) do
    begin
       while(i<=length(s))and(s[i]=#32) do
        inc(i);
       if i<=length(s) then
        begin
           inc(count);
           bword:=i;
           count1:=0;
           while(i<=length(s))and(not(s[i]=#32)) do
            begin
               inc(i);
               inc(count1);
            end;
           if ((count=4)or(count=5))and(count1=5) then
            begin
               delete(s,bword,i-bword);
               i:=bword;
            end
        end;
    end;
end;
    writeln(f2,s);
    readln;

end.

Сообщение отредактировано: mafia1232 - 1.06.2005 19:21