подсчитайте в строке количество иностранных слов

[покемон21]

подсчитайте в сторке количество иностранных слов

[ZX Spectrum-128]

Условие мутное какое-то. Иностранные - это какие?

[покемон21]

Сообщение от ZX Spectrum-128

Условие мутное какое-то. Иностранные - это какие?

Length,concat,copy,delete,insert,po s,upcase

[Stilet]

Это не иностранные слова. Это наполовину абривеатуры.
Как быть со словом i?

[Аватар]

Как быть со словом i?

Или со словом щs, а также f1

[ZX Spectrum-128]

Согласно списка, представленного автором.

uses
  strutils;
const
  n=7;
var
  strings:array[1..n] of string[6];
  m,k,j,i:integer;
  s:string;
begin
  strings[1]:='LENGTH';
  strings[2]:='CONCAT';
  strings[3]:='COPY';
  strings[4]:='DELETE';
  strings[5]:='INSERT';
  strings[6]:='POS';
  strings[7]:='UPCASE';
  k:=0;
  //s:='LENGTH POS pos b МАМА МЫЛА РАМУpos POS length POS DELETE';
  readln(s);
  s:=upcase(s);
  for i:=1 to n do
    begin
      j:=1;
      while j<Length(s) do
        begin
          m:= posex(strings[i],s,j);
          if m<>0 then
            begin
              k:=k+1;
              j:=m+length(strings[i]);
             end
          else
            inc(j);
        end;
    end;
  writeln(k);
  readln;
end.