Работа с файлами (Pascal).

[MaxuM]

В файле символьного типа перевернуть каждую строку по порядку без использования массива.
например было:
травка зеленеет
солнышко блестит
стало:
теенелез акварт
титселб окшынлос

Таким образом можно реализовать?:

program lab;
uses crt;
var f:file of char;
    s:string;
    i,n,k:integer;
    c,d,o: char;
begin
     assign(f,'file.txt');
     reset(f);
     d:=#13;
     while not eof(f) do
     begin
           s:='';
           while c<>d do
           begin
                 read(f,c);
                 s:=s+c;
           end;
           n:=length(s) div 2;
           for i:=1 to n do
           begin
                o:=s[i];
                s[i]:=s[length(s)-i+1];
                s[length(s)-i+1]:=o;
           end;
           read(f,d);
           for i:=1 to length(s) do
           begin
           write(s[i]);
           end;
     end;
    close(f);
end.

Если да, то помогите исправить, пожалуйста, она работает неверно.

[Zer0]

а можно реализовать это например так:

var c:char; 
...
while not eof(f) do begin
 s:='';
 while not eoln(f) do begin
  read(f,c);
  s:=c+s;
 end;
 writeln(s);
end;
...

[MaxuM]

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

а можно реализовать это например так:

var c:char; 
...
while not eof(f) do begin
 s:='';
 while not eoln(f) do begin
  read(f,c);
  s:=c+s;
 end;
 writeln(s);
end;
...

в типизированном файле eoln не воспринимается, только в текстовом файле.

[Zer0]

хм... проглядел что файл типизированный
Но тогда его можно заменить условием

while not (c=#10) (или #13)

ведь переносы строк остаться должны? Или я все таки снова путаю?)

[MaxuM]

у меня в задаче так же. у меня 1-ая строка переворачивается а как перейти на следущую и на другие?

[Zer0]

нынче я торможу(
read(f,d); поменять на read(f);
Дальше он в принципе сам должен перейти на след строку, а тут получалось такое что Вы заменяли d, с которым сравниваете в цикле
Плюс - я не уверен, но кажется фраза "без использования массива" подразумевает запрет на использование подобных конструкций:

                o:=s[i];
                s[i]:=s[length(s)-i+1];
                s[length(s)-i+1]:=o;

[MaxuM]

Спасибо, Zer0, за помощь. Я её решил. УРА ВОТ:

program lab;
var f:file of char;
    s:string;
    i,n,k:integer;
    c,o: char;
begin
     assign(f,'file.txt');
     reset(f);
     k:=0;
     seek(f,0);
     while not eof(f) do begin
           read(f,c);
           s:='';
           while (c<>#13) and (c<>#10) do
           begin
                s:=s+c;
                read(f,c);
           end;
           n:=length(s) div 2;
           for i:=1 to n do
           begin
                o:=s[i];
                s[i]:=s[length(s)-i+1];
                s[length(s)-i+1]:=o;
           end;
           seek(f,k);
           for i:=1 to length(s) do
           begin
           write(f,s[i]);
           end;
           k:=filepos(f)+2;
           seek(f,k);
           end;
close(f);
end.

В конце текста в файле обязательно ставить ENTER