Chciałem napisać program sortujacy lancuchy znakow na dlugosc i alfabetycznie. O ile z sortowaniem na dlugosc nie ma problemu to z alfabetycznym jest. Wszystko ladnie kompiluje, przy odpaleniu dziala normalnie i dopiero gdy porownuje ciagi znakow wywala errora.
Kompilator: FPC 2.04
Kompilator: FPC 2.04
program sortowanie;
var
lan:array[1..151] of string[201];
x:string[201];
n,i,j,k,l,dl:integer;
ch:char;
begin
readln(n);
if n<=150 then
begin
for j:=1 to n do
readln(lan[j]);
for j:=n downto 1 do
begin
k:=1;
for i:=0 to j do
begin
l:=i+1;
if lan[i]<lan[l] then
begin
x:=lan[l];
lan[l]:=lan[i];
x:=lan[i];
k:=0;
end;
end;
if k=1 then break;
end;
for j:=1 to 200 do
begin
for i:=1 to n do
begin
dl:=length(lan[i]);
if (dl=j) then
writeln(lan[i]);
end;
end;
end;
readln;
end.
