Как строку разбить на строки?!

[Npwas]

Пытаюсь вот но никак не получается!!! Мож кто знает как?!
Это ток начало проги!!!

program Mnozestvo;
{$APPTYPE CONSOLE}
uses
  SysUtils;
type
  stroka=array of string;
  stroka2=array[1..2] of string;
  mz=set of char;
  Var
  s:stroka2;
  s2:stroka;
  a:mz;
  Vrepeat1,Vrepeat2:boolean;
  i,j,x,c,n,k:Integer;
begin
  a:=['a','b','c','d','e'];
  For i:=1 to 1 do
  Readln(s[i]);
  Vrepeat1:=true;
  Vrepeat2:=true;
  c:=1;
  k:=1;
  n:=Length(s[1]);
 While Vrepeat1 do
   begin
       {$B+}
         If (Vrepeat2) and (not(s[n]='.'))then
            begin
            If (s[k]=' ') or (s[k]=',') then
              begin
                 Write('HEY');
                 Readln;
                 c:=c+1;
                 Vrepeat2:=false;
              end else
                   if s[k]='.' then
                   s[n]:='.';
         end else Vrepeat1:=false;
       {$B-}
         k:=k+1;
   end;
  Writeln;
  Write(c);
  Readln;
end.