dowolny ciąg znaków w pascalu

0

Witam,
Potrzebuje w pliku tekstowym wyszukać linijkę z podanym początkiem zdania np.

Mam linię w pliku:
ala ma kota
i chciałbym znaleźć ją za pomocą zmiennej wpisanej z klawiatury.
Coś w stylu: *ala**.

Proszę przerobić ten fragment programu tak żeby moja_zmienna zawierała jakiś ciąg znaków+dowolny ciąg znaków

repeat
      readln(plik,s);
      if s<>moja_zmienna then
      writeln(s);

until EOF(baza);

W jaki sposób to zrobić? Z góry dziękuje za pomoc.

0

readln(plik, s);
if pos(moja_zmienna, s) <> 0 then

0

Dziękuje bardzo, działa idealnie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0