Программа разделения текста на подтексты. В качестве разделителя текста принимается знак «.» (точка) — Pascal(Паскаль)

Program pr46 (Input, Output); 
Label 1, 2;
Var 
A: String; 
q : Integer;
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Разделение текста на подтексты.'); 
WriteLn ('Введите текст, заканчивающийся точкой:'); 
ReadLn (A);
 
1: q := Pos ('.', A); 
If q = 0 Then
Goto2; 
 
WriteLn ('Найден подтекст:'); 
For i := 1 To q - 1 Do
Write (A [i] );
WriteLn;
 
Delete (A, 1, q);
Goto 1;
 
2: WriteLn ('Поиск подтекстов в тексте закончен.'); 
 
ReadLn;
End.