Nem működik. Miért?

program verseny2;

uses crt;

{-----------------------}

Var szamok: array[0..24] of integer;

n,m : integer;

x : integer;

y,z : integer;

Begin

Randomize;

clrscr;

{-----------------------}

for n:= 0 to 24 do begin

szamok[n]:=random(100);

write(szamok[n]);

write(',');

end;

writeln();

{---}

x := 0;

for n:=0 to 24 do begin

if szamok[n]>x then x:= szamok[n];

end;

writeln('legnagyobb sz m:',x);

{---}

writeln();

x := 10000;

for n:=0 to 24 do begin

if szamok[n]<x then x:= szamok[n];

end;

writeln('legkisebb sz m:',x);

writeln();

{---}

x := 1000;

while z<24 do begin

for n:=m to 24 do begin

if szamok[n]<x then begin y:=n;

x := szamok[n];

end;

end;

write(szamok[y],',');

szamok[y]:=1000;

z:=z+1;

x := 0;

m:=m+1;

end;

{-----------------------}

Readln();

End.