Задание: Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы!
Написать программу, которая находит из всех четырехзначных чисел, такие числа, в записи которых все цифры различны.
Пожалуйста, помогите, очень прошу!!
(Только мне надо не в Турбо-Паскале, а в обычном)
Спасибо заранее))
Вот что у меня есть:
program Numbers;
var
i: integer;
function DifferentFigures(x: integer):boolean;
var
s: string;
i,err: integer;
d:array[0..9] of boolean;

begin
str(x,s);
for i:=0 to 9 do
d[i]:=false;
for i:=1 to 4 do
begin
val(s[i],x,err);
if d[x] then begin
DifferentFigures:=false;
exit;
end;
d[x]:=true;
end;
end;

begin
for i:=1000 to 9999 do
if DifferentFigures(i) then write(i:8);
writeln;
writeln('Press Enter...');
readln;
end.