Работа с текстом, в паскале.

[Cartman18]

Помогите закончить программу... суть программы посчитать слова в тексте. и вывести каждое слова с новой строчки! Все зделал кроме вывода(

Program st;
var
 text :string;
 letter:char;
 i,kol, k:integer;
 Flag:boolean;
begin

 writeln('vvedite npedlojenia');
 readln(text);
 kol:=0;
 flag:=true;
 repeat
   if pos('',text)>0 then
	delete(text,pos('',text),1);
   until pos('',text)=0;
   k:=0 ; kol:=0;
   for i:=1 to length(text) do
     begin
	Letter:=Text[i];
	if (letter <> ' ') and flag
	then kol:=kol+1;
	flag:=(letter=' ');
    end;
    Writeln;
   writeln(kol,' slov');readln
 end.

заранее спасибо!

[Tayfun]

var
text:string;
i,c:integer;
begin
readln(text);
c:=length(text);
for i:=1 to c do begin
b:=copy(text,i,1);
if b<>' ' then write(b) else writeln;
end;
end.

[Sniperok]

var
 text :string;
 stroky:array [1..200] of string;
 i,kol,dlinna, k,n:integer;
begin

 writeln('vvedite npedlojenia');
 readln(text);
 kol:=0;
  n:=0;
 k:=0;
 dlinna:=length(text);
 for i:=1 to dlinna do 
  begin
    k:=k+1;
    if (copy(text,k,1)=' ') or (copy(text,k,1)=',') then
     begin
        n:=n+1;
        kol:=kol+1;
        stroky[n]:=copy(text,k,k-1);
        delete(text,1,k);
        k:=0;
     end;
  writeln('kol-vo simvolov= ',kol);
 for i:=1 to n do
  begin
   writeln(stroky[i]);
  end;
readln;
end.

Что то вроде этого, проверь должно работать! Писал не в паскале так как такового на данный момент нет!

[Cartman18]

Sniperok, не работает*((( пишет токо что кол-во символов =0, но мне нужно слова...)и он их не выводит.а ты как писал?
Tayfun, а полностью как прога будет выглядеть?

[Cartman18]

блин, вроде не тяжело... но такой затор.