Организовать ввод ФИО только на русском языке

Program Mnogestv5;{Задача.Организовать ввод ФИО только на русскомязыке.Решение.Арсланов Ильдар,ЦНИТ "Северная Звезда"16.03.2000.}Uses Crt;Var litera:set of char; Name,s:string; ch:char; Flag:boolean; x,I:integer;Begin ClrScr; Randomize; litera:=[' ','А'..'п','р'..'я',#8]; Write('Введите фамилию,имя,отчество '); Writeln; Repeat {считать Name} Repeat {считать в ch код клавиши} ch:=readkey; If ch=#8 {Если нажата клавиша BACKSPACE} then ch:=#8; {Заменяем неправильную букву} if ch<>#13 Then begin Flag:=ch in litera; If flag {если символ входит в множество} Then begin name:=name+ch; {приклеить символ к name} write(ch); {напечатать этот символ} end Else {иначе вверху} begin sound(345); delay(3000); nosound; Writeln('Загрузите русский шрифт или'); Writeln('нажмите CTRL-SHIFT'); Writeln('и введите ваше имя '); end; end; Until Flag; {завершить ввод очеред.символа} Until ch=#13; {завершить ввод name т.к нажата ENTER} Writeln; Writeln('Здравствуйте, ',name); Writeln('Сколько тебе лет '); Readln(x); Writeln('А мне,компьютеру ',random(100),' лет'); Readln;End. 2. Описать множество Mn(1..50) и поместить в него все числа из диапазона A..B, делющиеся без остатка на k. Program Mnoj3; {Задача. Описать множество Mn(1..50) и поместить в него все числа из диапазона A..B, делющиеся без остатка на k. Решение. Грушин Кирилл Центр НИТ "Северная Звезда" 16.03.2000г.} Uses Crt; Type Chisla = Set of 1..50; Var i, k, A, B: integer; Mn: Chisla; Procedure Prov; begin If (A < 0) or (B < 0) Then begin Sound (1000); Write ('Неправильный ввод диапазона!!!'); Delay (800); NoSound; end; end; Procedure Vvod; begin Prov; Mn:= []; For i:= A to B do begin If i mod k = 0 Then Mn:= Mn + [i]; If i in Mn Then Writeln (i,' - Помещено') Else Writeln (i,' - Не помещено'); end; end; Begin ClrScr; TextColor (White); Write ('Введите диапазон A..B через пробел...'); Readln (A,B); Write ('Введите число k-делитель...'); Readln (k); Vvod; Readln; End. 3. Решить ребус СОЛЬ + СОЛЬ = ЛОСЬ. Program Rebus2; {Задача. Решить ребус СОЛЬ + СОЛЬ = ЛОСЬ. Решение. Грушин Кирилл Центр НИТ "Северная Звезда 20.03.2000г.} Uses Crt; Type Chisla = Set of 0..9; Var X: integer; l, o, s, i: 0..9; Mn1, Mn2: Chisla; Procedure Vivod; begin Writeln(' ',X:5); Writeln(' +'); Writeln(' ',X:5); Writeln(' ----'); Writeln(' ',l, o, s, i); Writeln; Writeln; Writeln; end; Procedure Opred; begin Mn1:= []; Mn2:= []; For s:= 1 to 5 do begin Mn1:= Mn1 + [s]; For o:= 0 to 9 do If not (o in Mn1) Then begin Mn1:= Mn1 + [o]; For l:= 0 to 9 do If not (l in Mn1) Then begin Mn1:= Mn1 + [l]; For i:= 0 to 9 do If not (i in Mn1) Then begin Mn1:= Mn1 + [i]; X:= 1000*s + 100*o + 10*l + i; Mn2:= [l,o,s,i]; Mn1:= Mn1 - [i]; Vivod; end; Mn1:= Mn1 - [l]; end; Mn1:= Mn1 - [o]; end; Readln; Mn1:= Mn1 - [s]; end; end; Begin ClrScr; TextColor (LightGreen); Opred; Readln;

End.