можно ли использовать метод пузырька для сортировки массива из строк?
вот у меня такая прога:
uses crt;
type
r=1..500;
mas=array[r] of string[10];
var i,k,l:integer;
m,n:r;
sp:mas;
slovar:text;
p,tmp:string;
begin
clrscr;
assign(slovar,'slovar.txt');
reset(slovar);
n:=1;
while not eof(slovar) do
begin readln(slovar,p);
n:=n+1;
{for i:=1 to length(p) do
begin }
for m:=1 to n-1
do begin sp[m]:=p;
{end;}
end;
writeln(m,' ',sp[m]);
for m:=n-1 downto 2 do
for l:=1 to m-1 do
if sp[l]>sp[l+1] then
begin
tmp:=sp[l];
sp[l]:=sp[l+1];
sp[l+1]:=tmp;
end;
end;
writeln('v alfavitnom poryadke:');
for l:=1 to n-1 do
writeln(l,' ',sp[l]);
writeln(n-1);
close(slovar);
readkey;
writeln('Programma zavershila rabotu.');
end.
она выдаёт последнее слово в файле, приравнивая его всем эл-там массива. почему так?
в файле словарь.тхт даны строки типа
MY
NAME
IS
KATE
на выходе:
1 HELLO
2 MY
3 NAME
4 IS
5 KATE
'v alfavitnom poryadke:
1 KATE
2 KATE
3 KATE
4 KATE
5 KATE