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

uses crt;

const ch=['А'..'п','р'..'ё'];

var fam, nam, otc, god, adr : string;

i : integer;

begin

clrscr;

writeln('vvedite familiu:');

readln(fam);

writeln('vvedite imia:');

readln(nam);

writeln('vvedite otchestvo:');

readln(otc);

writeln('vvedite god rojdeniia:');

readln(god);

writeln('vvedite adres:');

readln(adr);

writeln;

writeln('Ниже ввыдены символы входящие в имя, фамилию, отчество.');

writeln;

for i:=1 to length(fam) do

if fam[i] in ch then

begin

write(fam[i],' ');

end;

writeln;

for i:=1 to length(nam) do

if nam[i] in ch then

begin

write(nam[i],' ');

end;

writeln;

for i:=1 to length(otc) do

if otc[i] in ch then

begin

write(otc[i],' ');

end;

readln;

end.

Скачать решение.