Строки. Помогите, пожалуйста.

[Dexterello]

я не совсем в этом шарю, а мне скоро поступать, очень срочно... помогите решить 2 задачи на Turbo Pascal, желательно с комментариями. Буду очень благодарен.

1) Дана строка символов. Распечатать самое длинное слово, начинающееся на букву "К". Если таких слов нет - выдать соответствующее сообщение, а если такое есть, то предполагается, что оно единственное.
2) Дана строка символов. Распечатать самое длинное слово, первые две буквы которого "КО". Если таких слов нет - выдать соответствующее текстовое сообщение.

Заранее огромное спасибо...

[eoln]

const
  konec = [' ', ',']; //символы по которым определяется конец слова
var
  s, slovo, maxSlovo: string;
  d, i: integer;
begin
  write('s = ');
  readln(s);//вводим слово
  s := ' ' + s + ' ';//добавим пробелы на концах, чтоб работать удобнее было
  maxSlovo :='';//начальное искомое слово
  repeat//НАЧАЛО ПОИСКА
    d := pos(' k', s);//ищем слово 
    delete(s, 1, d);//удаляем всё до этого слова
    for i := 1 to length(s) do
    if s[i] in konec then//ищем признак конца слова
    begin
      slovo := copy(s, 1, i-1);//нашли конец слова - скопируем это слово
      break
    end;
    if length(slovo) > length(maxSlovo) then//проверим длинну
      maxSlovo := slovo//если длиннее максимального, то запомним его
  until d = 0;//КОНЕЦ ПОИСКА
  if length(maxSlovo) = 0 then//если длина нулевая, то
    write('not found') //пишем что нету его
    else write(maxSlovo);//иначе пишем найденное слово
  readln
end.

Вторая по аналогии

[puporev]

И уточните задание. Дело в том, что буквы к и о могут быть русскими и английскими, большими и маленькими. Все четыре буквы имеют разные коды и воспринимаются программой как разные буквы. Поэтому когда будете писать программу, учтите это.

[Dexterello]

Спасибо огромное...

[Dexterello]

только ещё кое-что... мы не слово вводим, а строку...

[eoln]

только ещё кое-что... мы не слово вводим, а строку...

без разницы

[Dexterello]

2 eoln: нет, извините, это не то... мне нужна строка и потом нужно осуществлять поиск по этой строке... а тут получается ввод одного слова...

[Dexterello]

ага. всё, понял. извиняюсь за свою безграмотность...) спасибо большое)

[Dexterello]

Помогите ещё с этим, пожалуйста...

Дана строка. Составить одномерный массив из слов, которые отличны от слова INFORMATION. Если таких слов нет, то выдать соответствующее текстовое сообщение.

[eoln]

Почти так же

const
  konec = [' ', ','];
  NoSlovo = 'INFORMATION';
var
  s, slovo: string;
  d, f, i: integer;
  mas: array[1..250] of string;//статический массив
begin
  write('s = ');
  readln(s);
  s := ' ' + s + ' ';
  f := 0;//величина массива
  repeat
    d := pos(' ', s);//ищем начало слова
    delete(s, 1, d);//удаляем всё до этого слова
    if s = '' then break;//если ничего не осталось прерываем цикл repeat
    for i := 1 to length(s) do
    if s[i] in konec then
    begin
      slovo := copy(s, 1, i-1);
      break
    end;
    if slovo <> NoSlovo then//если слово отлично от 'INFORMATION'
    begin
      inc(f);//передвигаемся к следующей ячейки массива
      mas[f] := slovo//и записываем туда наше слово
    end
  until d = 0;
  if f = 0 then//если массив пустой
    write('not found') else//пишем нет слов
    for i := 1 to f do writeln(mas[i]);//иначе выводим массив
  readln
end.