Помогите с задачей на pascal

[sdinaras]

Посмотрите пожалуйста почему задачка не работает :
program quicksort;

type massiv = array [1..100] of integer;

var x:massiv;
i,k,n:integer;
procedure qsort(t,f:integer);
procedure sort(l,r:integer);
var i,j,x1,y1,m:integer;
begin
i:=l;
j:=r;
m:=round((l+r)/2)
x1:=x[m];
repeat
while x[i]<=x1 do inc(i);
while x[j]>=x1 do dec(j);
if i<=j then
begin
y1:=x[i];
x[i]:=x[j];
x[j]:=y1;
inc(i); dec(j);
end;
until i>j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end;
begin sort(t,f); end;
begin
writeln('Введите маасив чисел для сортировки ');
writeln('В конце ввода нажмите 0 ');
k:=1;
read(x[1]);
while x[k]<>0 do
begin
k:=k+1;
read(x[k]);
end;
n:=k-1;
writeln;
writeln('Массив до сортировки: ');
writeln;
for i:=1 to n do
write(x[i],' ');
readln;
qsort(1,n);
writeln;
writeln('Массив после сортировки: ');
writeln;
for i:=1 to n do
write(x[i],' ');



readln;
end.

[Sibedir]

Б-р-р, а что это за метод такой? Попроще-то нельзя было.

[Sibedir]

program quicksort;

type massiv = array [1..100] of integer;

var
  x: massiv;
  i,  k,  n:  integer;

procedure sort (l, r: integer);
var
  i, j, x1, y1, m: integer;
begin
  i := l;
  j := r;
  m := round ((l+r)/2);
  x1:=x[m];
  repeat
    while x[i]<x1 do inc(i);
    while x[j]>x1 do dec(j);
    if i<=j then begin
      y1:=x[i];
      x[i]:=x[j];
      x[j]:=y1;
      inc(i);
      dec(j);
    end;
  until i>j;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;

begin
  writeln('Введите массив чисел для сортировки ');
  writeln('(0 - признак конца массива)');
  k:=1;
  read(x[1]);
  while x[k]<>0 do begin
    k:=k+1;
    read(x[k]);
  end;
  n:=k-1;
  writeln;
  writeln('Массив до сортировки: ');
  writeln;
  for i:=1 to n do
    write(x[i],' ');
  readln;
  sort(1,n);
  writeln;
  writeln('Массив после сортировки: ');
  writeln;
  for i:=1 to n do
    write(x[i],' ');
  readln;
end.

[sdinaras]

СПАСИБО, СПАСИБО........ СПАСИБО!!!