Пишу ограничение, которое запрещает вводить символы кроме русских букв для полей "Наименование товара" и "Страна - экспортер". Но это ограничение срабатывает лишь на 1-м поле "Наименование товара", для поля "Страна - экспортер" это ограничение не обрабатывается. И курсор автоматически переходит в поле "Количество товара".
Код
type
tovar=record
naimenovanie:string[30];
strana_exporter:string[30];
data_postavki:string[10];
kolichestvo_tovara:byte;
end;
var
tov:array[1..100] of tovar;
f:file of tovar;
date,str:string;
k,l,n:integer;
i,j:byte;
ch:char;
quit:boolean;
simb:set of char;
smb:set of char;
begin
.....
with tov[i] do begin
simb:=['А'..'Я','а'..'я',' ',#8];
write('Введите наименование товара: ');
naimenovanie:='';
repeat
if keypressed then begin
ch:=readkey;
if ch in simb then begin
write(ch);
naimenovanie:=naimenovanie+ch;
end;
end;
until ch=#13;
writeln;
write('Введите страну-экспортер : ');
strana_exporter:='';
repeat
if keypressed then begin
ch:=readkey;
if ch in simb then begin
write(ch);
strana_exporter:=strana_exporter+ch;
end;
end;
until ch=#13;
writeln;
smb:=['1'..'9','.',#8];
write('Введите дату поставки : ');
data_postavki:='';
repeat
if keypressed then begin
ch:=readkey;
if ch in simb then begin
write(ch);
data_postavki:=data_postavki+ch;
end;
end;
until ch=#13;
{$I-}
9:write('Введите количество товара : '); readln(kolichestvo_tovara);
{$i+}
if (IoResult<>0) or (kolichestvo_tovara<=0) or(kolichestvo_tovara>1000) then begin
writeln('Повтори ввод количества товара !!!');
delay(500);
goto 9;
end
else
writeln;
writeln('Нажмите Enter');readln;
end;
....
Большая просьба помочь.