Написать программу для Pascal. Вот условие. Надеюсь на помощь.

program asdasd;     var s:string; begin;     read(s);     if pos('рак',s) = 0 then write('Нет') else write('Да'); end.

var s:array[1..100]:string;       i:integer; begin  write('введите слово);  read(s);  for i:=1 to lenght(s) do     if s[i]+s[i+1]+s[i+2] = 'рак' then    writeln('da')   else  writeln('net') end.