Дан ряд, который сложен с трёх фраз. Каждая фраза оканчивается точкой. Вывести на экран каждую фразу с новой строки — Pascal(Паскаль)

Program CTP_2_2;
uses crt;
var 
 s,a:string;
 i:integer;
Begin
clrscr;
write('Vvedite rjad: ');
readln(s);
a:='';
for i:=1 to length(s) do
 begin
 a:=a+s[i];
 if s[i]='.' then 
  begin
  writeln(a);
  a:='';
  end;
 end;
readln;
End.