Здравствуйте ,проблема вот в чём:я никогда раньше не сталкивался с написанием больше ,чем одной процедуры в модуле.
Сейчас мне это пришлось и возникает ошибка,которую я пока не знаю как исправить
Вот код
читать дальше
unit SORT;
interface
Type
STR = array of string [50];
Procedure SORT_Bubble(Mas:STR) ;
implementation
Uses SysUtils;
Procedure Sort_Bubble;
Var
FL:boolean;
i:byte;
k:word;
x:string[50];
l:integer;
n:integer ;
begin
n:=0;
For i:=1 to 100 do
If Mas[i]<>'' then
n:=n+1;
k:=0;
Fl:=false;
l:=2;
repeat
For i:= n downto l do
begin
If Mas[i-1] > Mas[i] then
begin
k:=k+1;
x:=Mas[i-1];
Mas[i-1]:=Mas[i];
Mas[i]:=x;
end;
end;
If k=0 then
Fl:=true;
l:=l+1;
k:=0;
until(FL=true);
end;
Procedure Sort_Shaker(Mas:STR);
implementation
Uses SysUtils,
Procedure Sort_Shaker;
Var
i,j:byte;
max,min:byte;
Mas:array of string[50];
k:string[50];
n:integer ;
begin
n:=0;
For i:=1 to 100 do
If Mas[i]<>'' then
n:=n+1;
For i:=1 to (n div 2) do
begin
min:=i;max:=n-i+1;
For j:=i to (n-i+1) do
begin
If Mas[j]>Mas[max] then
max:=j;
If Mas[j]<Mas[min] then
min:=j;
end;
If (max=min) then break;
If (max = i) then
begin
K:=Mas[min];
Mas[min]:=Mas[i];
Mas[i]:=K;
max:=min;
K:=Mas[max];
Mas[max]:=Mas[n-i+1];
Mas[n-i+1]:=K;
end
else
begin
K:=Mas[min];
Mas[min]:=Mas[i];
Mas[i]:=K;
K:=Mas[max];
Mas[max]:=Mas[n-i+1];
Mas[n-i+1]:=K;
end ;
end;
end.
Ошибка возникает следующая:
[Error] SORT.dpr(63): ';' expected but 'IMPLEMENTATION' found(То есть связанная со вторым Implementation)
Заранее спасибо.