анализ и преобразование текста строки

[Черная тень]

ввести строку, состоящую из нескольких предложений. построить результирующую строку, содержащую только предложения, состоящие из заданного количества слов.

[Rusl92]

var n:integer;
s:string;
f,f2:text;
begin
assign(f,'input.txt');
reset(f);
asiign(f2,'output.txt');
rewrite(f2);
readln(f,n);{cчитываем сколько букв должно быть в строке}
{ которую нужно выводить}
while (not eof(f)) do
begin
read(f,s);
if length(s)=n then writeln(f2,s);
readln(f);
end;
writeln('Работа закончена');
readln
close(f);
close(f2);
end.

[Tkirill]

uses crt;
var
mas:array[1..50] of string;
s,st,str:string;
i,j,a,b,c,d,k,l,n,kol:integer;
begin
clrscr;
write(' CTPOKA -> ');
writeln;
readln(s);
writeln;
writeln(' KOJIU4ECTBO CJIOB -> ');
readln(k);
writeln;
i:=1;
st:='';
n:=0;
s:=s+' ';
repeat
if s[i]<>'.' then st:=st+s[i]
else begin n:=n+1; mas[n]:=st; st:=''; end;
if mas[n][1]=' ' then delete(mas[n],1,1);
i:=i+1;
until i>length(s);
st:='';
writeln;
writeln;
for i:=1 to n do
begin
mas[i]:=mas[i]+' ';
j:=1;
kol:=0;
repeat
if mas[i][j]<>' ' then st:=st+mas[i][j]
else kol:=kol+1;
j:=j+1;
until j>length(mas[i]);
delete(mas[i],length(mas[i]),1);
if kol=k then write(mas[i],'. ');
end;
readln;
end.

[Tkirill]

В формате:
предложение1. предложение2. преддожение3. ....

[Черная тень]

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

В формате:
предложение1. предложение2. преддожение3. ....

эм... но данная программа не выводит результат...

[Tkirill]

В смысле? я что то не понял.

[Tkirill]

я проверял. прога рабочая. результат выводит нормально.