Процедура сортировки списка

[MyQwErTy]

Язык Pascal
Доброго времени суток. В мою программу нужно вставить процедуру сортировки по убыванию. Я нашел готовую, но оптимизировать не получается. Помогите, пожалуйста.
Программа.

program seznam;
uses crt;

type UPrvek = ^Prvek;
Prvek = record;
data : integer;
dalsi : UPrvek;
end;

var hlava : Uprvek;
zarazka : UPrvek;
pocet : integer;
x : Uprvek;

procedure vytvor;
begin
new(hlava);

zarazka:=hlava;
hlava^.dalsi:=nil;
pocet:=0;

procedure vloz(d:integer);
var novy:uprvek;
begin
new(novy);
novy^.data:=d;
novy^.dalsi:=hlava;

hlava:=novy;
pocet:=pocet+1;
end;

procedure vypis;
var p : uprvek;
begin
p:=hlava;
while p<>zarazka do {opakujeme vypis dokud nenarazime na zarazku}
begin
write(p^.data,' ');
p:=p^.dalsi;
end;
writeln;
end;

function najdi(d:integer):uprvek;
begin
p:=hlava;
while p<>zarazka do
begin
if p^.data=d then break;
p:=p^.dalsi;
end;
if p=zarazka then najdi:=nil
else najdi:=p;
end;

procedure smaz(u:uprvek);
var p:uprvek;
begin
u^.data := u^.dalsi^.data;
p:=u^.dalsi;
u^.dalsi:=u^.dalsi^.dalsi;
dispose(p);
pocet:=pocet-1;
end;

procedure zrus_seznam; {erasei list}
var p:uprvek;
begin
while hlava<>zarazka do
begin
p:=hlava;
hlava:=hlava^.dalsi;
dispose(p);
end;
dispose(zarazka);
hlava:=nil;
zarazka:=nil;
end;


begin
vytvor;
vloz(1); {place number 1 at the beginning}
vloz(5); {place number 5 at the beginning}
vloz(5); {place number 5at the beginning}
vloz(8); {place number 8 at the beginning}
vloz(2343); {place number 2343 at the beginning}
vloz(-422); {place number -422 at the beginning}
vypis;
x:=najdi(5);
if x<>nil then smaz(x)
else writeln('prvek nenalezen');
vypis;
zrus_seznam;
readln;
end.

И вот процедура сортировки

procedure Seleсt(var item: DataArray; count:integer);

var i, j, k: integer;

x: DataItem;
begin for i := i to count-1 do
begin
k := i; x := item[i];
for j := i+1 to count do { найти элемент с наименьшим значением }
if item[j]<x
then begin k := j; x := item[j];
end; item[k] := item[i]; { обмен }
item[i] := x;
end;
end;

[Serge_Bliznykov]

Я нашел готовую, но оптимизировать не получается.

что значит "оптимизировать" ?
Процедура сортировки работает, но результаты её работы Вас не устраивают, не проходят какой-то критерий? Какой именно?

[MyQwErTy]

Наверно не то слово подобрал.
Я хотел, чтобы данная процедура работала именно в этой программе.
Грубо говоря, нужно заменить названия переменных в данной процедуре, что я сделать не могу(

[rrrFer]

Я хотел, чтобы данная процедура работала именно в этой программе.
Грубо говоря, нужно заменить названия переменных в данной процедуре, что я сделать не могу(

зачем заменять в ней названия переменных? - новая процедура, новая область видимости.

Чтобы процедура "заработала" ее надо вызвать. Обычно.