veta = file.ReadContents("C:\temp\vstup.txt")
mezera = " "
mezery = 0
poslednimezera = 0
nova_veta = ""
pozice = 0

TextWindow.WriteLine("nactena veta:" + veta)
TextWindow.WriteLine("delka vety: " + Text.GetLength(veta))

If Text.EndsWith(veta, ".") Then
  For i = 1 To Text.GetLength(veta)
    znak = Text.GetSubText(veta, i, 1)

    If poslednimezera = 1 Then
      ' predtim jsme tam dali mezeru, takze ji chceme vynechat. mame nejbližší mezeru?
	      If znak = mezera Then
        ' vynechana
        mezery = mezery + 1
        'nasli jsme neco jineho
      Else
        poslednimezera = 0
	        nova_veta[pozice] = znak
	        pozice = pozice + 1
	      EndIf
    Else
      'nasli jsme mezeru
	      If znak = mezera Then
        poslednimezera = 1
        'ale tuhle mezeru chceme nechat
        nova_veta[pozice] = znak
	        pozice = pozice + 1
	      'nasli jsme neco jineho
	      Else
	        nova_veta[pozice] = znak
	        pozice = pozice + 1
	      EndIf
	   EndIf

	 EndFor

	 TextWindow.WriteLine("Pocet vynechanych mezer: " + mezery)
	 TextWindow.Write("Nova veta: ")

	 For i = 0 To Array.GetItemCount(nova_veta)
	  TextWindow.Write(nova_veta[i])
	EndFor
	  TextWindow.WriteLine("")
	Else
	  TextWindow.WriteLine("Veta v souboru C:\temp\vstup.txt musi koncit tečkou!")
	endif