Задача

[Vitas1234]

Дано натуральное число п. Проверить, будут ли все цифры числа различными.
вот тут начал а как дальше незнаю?
var
l,e,errcode:integer;
s:string;
q,w,i,ch:char;
begin
write('input chislo: ');
read(e);
str(e,s);
i:='1';
For l:=1 to Length(s) do

помогите переделать проседуру проверки ввода (что бы пропускала только буквы и пробел.)
procedure vvod(var t:word;a,b:word);
var
x,y,code:integer;
l:string;
flag:boolean;
begin
x:=wherex;
y:=wherey;
repeat
flag:=true;
readln(l);
if (code<>0) or (not(t>a)) or (not(t<b)) then
begin
gotoxy(x,y);
clreol;
write('error');
delay(1000);
gotoxy(x,y);
clreol;
flag:=false;
end;
until flag=true;
end;

[Stilet]

Я так слегка намекну как можно узнать повторяются ли цифры в числе:

var s:string;e,i,w:integer; a:string[10];b:boolean;
begin
s:='12345689';b:=false;a:='0000000000';
//********* FOR ******************
for i :=1  to Length(s)  do
begin
 val(s[i],e,w);
 if a[e+1]='0' then  a[e+1]:='1'
 else begin
  b:=true;
  break;
 end;
end;
//******* END FOR ****************{}
if b then writeln('повтор') else writeln('неа');
end;

[puporev]

Мне кажется можно сделать проще.

uses crt;
var s:string[10];//больше 10 знаков нет смысла проверять
    i,j,k:byte;
begin
clrscr;
write('Vvedite chislo ne bolee 10 znazkov:');
readln(s);
k:=0;
for i:=1 to length(s) do
for j:=1 to length(s) do
if (s[i]=s[j])and(i<>j)then
   begin
    k:=k+1;
    writeln('Povtorjajutsa!');
    readln;
    exit;
  end;
if k=0 then writeln('Ne povtorjajutsa!');
readln
end.

[Crazy_Wolfy]

var
i,t: byte;
s: string;
begin
writeln('введите число');
read(s);
for i:=1 to 11 do begin
if i=11 then begin
write('есть одинаковые цифры! press enter');
read;
halt; end;
for t:=1 to i do if (s[i]=s[t]) and (i<>t) then
begin

[Crazy_Wolfy]

write('есть одинаковые цифры! press enter');
read;
halt; end;
end;
end.
вторая часть. в делфи проверил.

[puporev]

По процедуре ввода. Если Вам нужен не посимвольный контроль ввода, а правильный итоговый ввод, то можно сделать так. Вводить можете что угодно, а на экране будут только буквы и пробелы.

uses crt;
var
str:string;
procedure Vvod(var s:string);
var m:set of char;
    i:integer;
begin
clrscr;
m:=['A'..'Z','a'..'z','А'..'п','р'..'ё',' '];
write('Vvedite stroku: ');readln(s);
for i:=length(s) downto 1 do
if not (s[i] in m) then delete(s,i,1);
writeln;
writeln(s);
readln
end;
begin
Vvod(str);
end.