Даны натуральное число n и символы S1..Sn, среди которых есть точки. Напечатать все символы между первой и второй точками. Если второй точки нет, то получить все символы, расположенные после единственной точки — Pascal(Паскаль)

var
s:string;
n,i,k:integer;
begin
writeln('vvediye kol-vo simvolov n');
readln(n);
writeln('vvediye stroku');
readln(s);
for i:=1 to n do
begin
if s[i]='.'then inc(k);
if (s[i]<>'.')and(k=1)then write(s[i]);
end;
readln;
end.

var
  S:string;
  N:integer;
begin
  ReadLn(S);
  N:=Pos('.',S);
  WriteLn(Copy(S,N+1,Pos('.',Copy(S,N+1,Length(S)))-1))
end.

var
  S:string;
begin
  ReadLn(S);
  WriteLn(Copy(S,Pos('.',S)+1,Pos('.',Copy(S,Pos('.',S)+1,Length(S)))-1))
end.