Строковые переменные не получаются, Сдать надо срочно, а у меня не выходит(( Помогите пожалуйста Опции

[AlexeiGaz-24]

В Turbo Pascal. Задание: Даны названия 5 факультетов. Определить, имеется ли среди них "КИВ" и напечатать об этом соответствующее сообщение.

Сообщение отредактировано: AlexeiGaz-24 - 12.12.2012 18:14

[AlexeiGaz-24]

Ох, да, не дописал, забегался) В общем, вот такую програмку написал:

program ty ;

uses CRT;
var s:string;
i: integer;
res: boolean;
BEGIN
clrscr;
readln(s);
for i:=1 to length(s)-2 do if
(s[i]='К')and(s[i+1]='И')and(s[i+2]='В') then
res:=true;
if res=true then writeln('yes') else writeln('nope');
readkey;
END.

Только у меня получается, что вводить можно 1 название, а как для 5, придумать не могу

Добавлено через 16 мин.
Друг очень сильно помог, в итоге программа есть!) Все тоже самое, но как я мог забыть про циклы для ввода) Спасибо, за то, что пытались помочь

Сообщение отредактировано: AlexeiGaz-24 - 12.12.2012 20:57