Пользователь вводит с клавиатуры текст (набор символов), после чего ему предлагается подсчитать сколько раз встречается в данном тексте символ S. S вводится с клавиатуры — Pascal(Паскаль)

Uses Crt;

Var
  tekst: String[30];
  n, i: Integer;
  s: String;

Begin
  Writeln('Введите текст:');
  Readln(tekst);
  Write('Введите символ для подсчета: ');
  Readln(s);
  n := 0;
  For i := 1 To Length(tekst) Do
    If tekst[i] = s Then
      n := n + 1;
  Write('В тексте символ ', s, ' встречается ', n, ' раз(а)');
  Repeat
  Until KeyPressed End.