Здравствуйте!
Задание находится во вложенном файле. Помогите отыскать ошибку, пожалуйста!
На входе текстовый файл, состоящий из слов и символов '.,:;!? ';
слово = отрезок строки текста из букв.
На выходе текстовый файл, в который помещены построчно все слова, найденные в порядке появления во входном файле, причем каждое слово сопровождается через пробел некоторой своей инверсией, не перемещающей только 1-й и последний символы слова.
ПРИМЕР --
вася всая
example elmaxpe
PHP код:
program coffee;
var S:string;
f1,f2:text;
Type mnog= set of byte;
function Inversion(S:string):string;
var S2,S3,S4,s5:String;
A,B:mnog;
i,c,r:integer;
begin
A :=[65 .. 90];
B :=[97 .. 122];
S2:=S;
i:=1;
S3:='';
S4:='';
S5:='';
if length(S2)>0 then
while i<(length(S2)) do
begin
if ((ord(S2[i]) in (A+B)) and (ord(S2[i+1]) in (A+B))) then
begin
S4:=S4+S2[i];
s3:=s3+S2[i];
end;
if ((ord(S2[i]) in (A+B)) and not(ord(S2[i+1]) in (A+B))) then
begin
s3:=s3+S2[i];
c:=1;
while not c=(length(s3)-2) do
begin
r:=random(2)-(length(s3)-3);
if (s5[r]<>chr(0)) then
begin
s5[r]:=s3[c];
c:=c+1;
end;
end;
S4:=S4+' '+S3[1]+s5+s3[length(s3)];
S3:='';
s5:='';
end;
end;
Inversion:=s4;
end;
begin
assign(f1, 'Input.txt');
reset(f1);
assign(f2, 'Output.txt');
rewrite(f2);
while not eof(f1) do
begin
readln(f1,S);
writeln(f2,inversion(S));
end;
close(f1);
close(f2);
end.