Множества, Сколько в тексте символов совпадающих с Опции

[Ирина]

Проверьте кто может правильность задачи.

1. Ввести с клавиатуры текст до символа точки и слово из латинских букв. Определить, сколько в тексте содержится символов, совпадающих с символами в слове.

Пишу такой программный код:

Код

program Symbol;
uses crt;
type alf='a'..'z';
var
str1, str2: string;
ch: char;
i, n: integer;
a: alf;
begin
clrscr;
n:=0;
writeln('Введите любое предложение на английском языке и поставьте в конце точку.'); readln(a);
n:=Pos('.',str1);
if n=0 then
begin
writeln('Ошибка входных данных.');
readln;
exit;
end;
writeln('Введите любое слово и нажмите <ENTER>');
begin
read(ch);
i:=1;
if ch in a then n:=n+1;  
end;
end;
writeln;
writeln('Количество символов слова, совпавших с символами в предл'); readln(n);
repeat until keipressed;
end;
end.

[Altair]

Я имел ввиду ,что в процессе работы программы она не была изменена.
Вот работающая программа:

Код

Uses CRT;
Var
S:string;
SLOVO:string;
C,i:BYTE;
D:char;
SUMM:word;
Begin
CLRSCR;
writeln('‚ўҐ¤ЁвҐ «оЎ®Ґ ЇаҐ¤«®¦Ґ­ЁҐ ­   ­Ј«Ё©бЄ®¬ п§лЄҐ Ё Ї®бв ўм⥠ў Є®­жҐ в®зЄг.');
Readln(s);
If S[Length(S)]<>'.' then begin writeln('ЋиЁЎЄ  ў®ўе®¤­ле ¤ ­­ле'); halt end;
writeln('‚ўҐ¤ЁвҐ «оЎ®Ґ б«®ў® Ё ­ ¦¬ЁвҐ <ENTER>');
SLOVO:='';
Repeat
 C:=ORD(readkey);
 If c<>13 then begin SLOVO:=SLOVO+CHR(C); write(CHR(c)) end;
Until C=13; Writeln;
For D:='a' to 'z' do
begin
 If (POS(D,SLOVO)<>0) then
 begin
  For i:=1 to Length(s) do If s[i]=D then INC(SUMM);
 End;
end;
writeln(SUMM);
end.

Кодировка ДОС (866).
Если есть вопросы, спрашивайте.

А как быть с несоответствием типов?

А зачем вам использовать вообще множество?