файл с массивом строк, помогите найти ошибку Опции

[LyaLya]

хм, вот задачка, найдите, плиз ошибку, я ее мучаю уже несколько недель

Требование:
В программе описать массив строк. Исходный текст считать из файла, созданного в любом текстовом редакторе. Результат обработки вывести на экран, а так же в итоговый текстовый файл.

Задание:
Определить количество слов, поменять местами четные и нечетные слова.

program pr6;
uses crt;

const p=3;
var o1,o2:text;
f:array[1..p] of string;
s,s1:string;
i,j,k,n,m1,m2,l1,l2:integer;
procedure invert(k,l:byte);
var i:byte;
	ch:char;
	 b:boolean;
begin
   for i:=k to ((l+k) div 2) do
   begin
	  ch:=s[i];
	  s[i]:=s[l+k-i];
	  s[l+k-i]:=ch;
   end;
end;

begin
clrscr;

assign(ff,'d:\o1.txt');

reset(ff);
j:=0;
  while not eoln(ff) do 
  begin j:=j+1;
	readln(ff,f[j]);writeln(f[j]);
  end;
close(ff);

reset(ff);
j:=0;
   while not eoln(ff) do 
   begin  j:=j+1;
	 readln(ff,f[j]);
	 i:=0;n:=0;
	 m1:=1;m2:=1;l1:=1;l2:=1;
	 while i<length(f[j]) do 
	 begin
	 i:=i+1;
	 s:=copy(f[j],i,1);
	 if (s[i]=' ')or(i=length(s)) then
repeat
						if s[i+1]=' ' then
						   begin
						      delete(s,i,1);
							k:=k-1;
							 b:=false;
						   end
						   else b:=true;
					  until b;
					 end;

  begin
	n:=n+1;
	if n=1 then
	begin
	  m2:=i-1;
	  l1:=i+1
	end
	else
	begin
	  n:=0;
	  if i=length(s) then l2:=i else l2:=i-1;
	  invert(m1,m2);invert(l1,l2);invert(m1,l2);
	  m1:=i+1
	end
  end
end;

writeln(f[j]);
close(ff);

assign(oo,'d:\o2.txt');
rewrite(oo);
for j:=1 to 3 do
writeln(oo,f[j]);close(oo);
end.

[LyaLya]

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

[Lapp]

прога, которую вы мне написали меняет местами только слова в первой строчке...

Постарайся запомнить: если ты замечаешь в программе "неправильное функционирование" (взято в кавычки, потому что на этом этапе это только твое мнение), то прежде, чем делать выводы (типа "меняет слова только в первой строчке") либо разберись в вопросе сама, либо приведи фактический материал.

Вот, я тебе привожу результат ее работы:

файл o.txt :

Код

Humpty Dumpty sat on a wall.
Humpty Dumpty had a great fall.
All the king's horses and all the king's men
Couldn't put Humpty together again.

файл o1.txt :

Код

Dumpty Humpty on sat wall a.
Dumpty Humpty a had fall great.
the All s'king and horses the all s'king men
t'Couldn Humpty put again together.

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

Подозреваю, что ты сделала свою вторую строчку из цифр. А цифры не входят в множество букв.. хотя и похожи на них внешне . Если хочешь, чтоб входили - включи. Также можешь включить и апостроф ('), если хочешь, чтобы, например, "king's" считалось одним словом, а не двумя.