Синтаксическая ошибка ")" expected but "(" found

[WebbMan]

Fatal: Syntax error, ")" expected but "(" found

Что значит ошибка понятно, но никак не пойму где что не так.

Type mass = array [1..100] of string;

var n, i, j, INDEX: integer;
    str: string;
    s: mass;
    length: byte;

procedure sorting(var s:mass; n: integer);
begin

	for i:=1 to n do
	begin
		for j:=1 to n-1 do
		begin
			if( length(s[j]) < length(s[j+1]) )
			then length := length(s[j])
			else length := length(s[j+1]);

			for INDEX:=1 to length do
			begin
				if( ord(s[j][INDEX]) > ord(s[j+1][INDEX]) ) then
				begin
				str := s[j+1];
				s[j+1] := s[j];
				s[j] := str;
				break;
				end else if( (ord(s[j][INDEX]) = ord(s[j][INDEX])) and (INDEX = length) )then
				if( length(s[j]) > length(s[j+1]) )then begin
									str := s[j+1];
									s[j+1] := s[j];
									s[j] := str;
								      end;	       
			end;
		end;
	end;	
end;

begin

 writeln('Сколько слов хотите ввести?'); readln(n);
 for i:=1 to n do
  begin
       readln(s[i]);
  end;

 sorting(s, n);

 for i:=1 to n do
  writeln(s[i]);

end.

[BDA]

Ну вообще-то компилятор и строчку подсказывает
Вместо length: byte; напишите length1: byte;, а то у вас переменная и стандартная функция называются одинаково.

[eoln]

then length := length(s[j])

ничего странного нет?
Нельзя переменные называть также как и ф-ии

[WebbMan]

Ну вообще-то компилятор и строчку подсказывает

это то понятное дело.

Вместо length: byte; напишите length1: byte;, а то у вас переменная и стандартная функция называются одинаково.

Нельзя переменные называть также как и ф-ии

Значит вот в чём дело... спасибо!