Вообще порядок будет "бавегд" (сам только что создал такие файлы и отсортировал их).
.............................
Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
delete(stroka,1,length(tmp)+1);
stroka:=stroka+' '+tmp;
writeln(stroka);
end.
Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
В цифровой форме, т.е. в виде цифровых аудиоформатов файлов. Любой файл в компьютере это набор (условных) нулей и единиц.