Составить программу для определения на факт вхождения заданного символа в введенную строку — Pascal(Паскаль)

Uses Crt;

Var
  t, s: String;
  i: Integer;
  otvet: Boolean;

Begin
  ClrScr;
  Writeln('Введите строку:');
  Readln(t);
  Write('Введите символ поиска: ')Readln(s);
  For i := 1 To length(t) Do
    If t[i] = s Then
      otvet := true;
  If otvet = true Then
    Write('да')
  Else
    Write('нет');
  Repeat
  Until KeyPressed End.