динамические переменные - Pascal - Ответ 722187

var f,g,e:text;
i,j,k,l,p,p1,m,n,u:integer;
s,s1,pr:string;
b:array of string;
begin
assign(f,'c:\f.txt');
assign(g,'c:\g.txt');
assign(e,'c:\e.txt');
 
reset(f);
rewrite(g);
writeln('Введiть довжину слова:');
readln(n);
l:=0;
 
while not(eof(f)) do begin
readln(f,s);
for i:=1 to length(s) do begin
 
if i=1 then begin
for j:=1 to length(s) do begin
if s[j]=''then begin
pr:=copy(s,l,j-1);
if length(pr)=n then begin
writeln(g,pr);
l:=l+1;
end;
break;
end;
end;
end;
 
if s[i]='' then begin
 for j:=i+1 to length(s) do begin
  if(s[j]='') or (j=length(s)+1) then begin
  pr:=copy(s,i+1,j-i-1);
  if length(pr)=n then begin
  writeln(g,pr);
  l:=l+1;
  end;
  break;
  end;
  end;
  end;
  end;
  end;
 
 
  close(f);
  close(g);
 
 reset(g);
 setlength(b,l-1);
 i:=0;
 
while not(eof(g)) do begin
readln(g,s);
b[i]:=s;
i:=i+1;
end;
 
j:=0;
for u:=0 to l-1 do
writeln(b[u]);
 
for p:=(l-1) downto 1 do begin
for m:=0 to p-1 do begin
if b[m]>b[m+1] then begin
s1:=b[m];
b[m]:=b[m+1];
b[m+1]:=s1;
end;
end;
end;
 
writeln;
for u:=0 to l-1 do
writeln(b[u]);
 
rewrite(e);
 
for u:=0 to (l-1) do begin
writeln(e,b[u]);
end;
 
close(e);
readln;
end.