Для каждого из слов заданного предложения указать, сколько раз оно встречается в предложении.

[Anton94.by]

Задание:
Для каждого из слов заданного предложения указать, сколько раз оно встречается в предложении.

program Project1;

{$APPTYPE CONSOLE}

//uses crt;

var s,sl:string;
    k,i:integer;
begin write('Vvedite tekst:');
      readln(s);
      write('Vvedite slovo: ');
      readln(sl);
      k:=0;
      while pos(sl,s)>0 do
        begin k:=k+1;
              delete(s,pos(sl,s),length(sl));
        end;
      writeln('Slovo v danom tekste vstre4aetsia ->',k, 'raz');
end.

Помогите отредактировать код для Delphi7.

Строки в Delphi7

Сообщение от Anton94.by

Задание:
Для каждого из слов заданного предложения указать, сколько раз оно встречается в предложении.

[Stilet]

А этот код и так для Делфи, о чем красноречиво говорит строка {$APPTYPE CONSOLE}

[Utkin]

Я бы заменил Pos на PosEx и выкинул удаление слов из строки.... Много лишних телодвижений - тут и поиск (дважды причем) и удаление символов. Для k есть специальная процедура Inc(k) - фиг его знает как там оптимизация, но вроде как должно быть быстрей....

А этот код и так для Делфи, о чем красноречиво говорит строка {$APPTYPE CONSOLE}

Он наверно оконное приложение хочет.

[Anton94.by]

Что для Deplhi код я то знаю, но этот код чего-то не считает. Что надо исправить?

[Utkin]

У меня все считает, поставь перед end.

readln(s);

чтобы увидеть вывод программы на экран.
И

writeln('Slovo v danom tekste vstre4aetsia ->',k, 'raz');

замени на

writeln('Slovo v danom tekste vstre4aetsia -> ',k, ' raz');

Смотрится эротичней.