Сортировка по фамилиям (Pascal)

[alex_warrior]

Не могу исправить ошибки в программе (Pascal, версия не известна, но довольно старая). помогите пожалуйста. вот само задание:


вот фамилии учеников
base.txt

код программы:

Program sort_spisok (input, output);
var  Fl :Text;
S,Sx,NameFile: String;
SM: array[1..100] of String;
i,n,nf: integer;

Procedure Sort_FIO(var SM :array[n1..n2:string] of String; nf: integer);
Var S: String;
i,j : integer;
begin
for i:=2 to nf do
 begin
 for j:=nf downto i do
 begin
 if SM[j-1]>SM[j] then
   begin
   S:=SM[j-1];
   SM[j-1]:=SM[j];
   SM[j]:=S;
   end;
 end;
 end;
end;

Procedure Sort_gr;
Var S,S1,S2: String;
i,j : integer;
begin
for i:=2 to nf do
 begin
 for j:=nf downto i do
 begin
 S1:=Copy(SM[j-1],pos(',',SM[j-1])+2,5);
 S2:=Copy(SM[j],pos(',',SM[j])+2,5);
 if S1>S2 then
   begin
   S:=SM[j-1];
   SM[j-1]:=SM[j];
   SM[j]:=S;
   end;
 end;
 end;
end;

Procedure Wywod_File;
begin
NameFile:='base_out.txt';
Assign(Fl,NameFile);
ReWrite(Fl);
for i:=1 to nf do writeln(Fl,SM[i]);
Close(Fl);
end;

Procedure Wywod_Format;
Var
S,SA,S1,S2,S3,S4 : String;
begin
for i:=1 to nf do
 begin
  writeln(SM[i]);
 end;
end;

Begin
Cls;
writeln('Введите часть фамилии или "1" если поиск не нужен: ');
Readln(Sx);
n:=Length(Sx);
writeln(Sx,'   Len=',n);
writeln;

NameFile:='base.txt';
Assign(Fl,NameFile);
Reset(Fl);
i:=1;
while not eof(Fl) do begin
readln(Fl,S);
SM[i]:=S;
i:=i+1;
if Copy(S,1,n)=Sx then writeln(S);
nf:=i-1;
end;
Writeln;
Close(Fl);

{Writeln(' nf=',nf);}
Sort_FIO(SM,nf);
Sort_gr;
Wywod_File;
Wywod_Format;

End.

Вот что выдает компилятор:

за ранее спасибо.

[whatever]

Неужели преподы элементарных вещей не объясняют?
Впрочем могу порадовать, ты тут такой не один.
Еще раз:
НЕ НАДО объявлять массивы в Var
НЕ НАДО использовать глобальные переменные (сильно не всматривался, но это, вроде как, к тебе не относится )

Program sort_spisok (input, output);
type
mass=array[1..100] of String;
var  Fl :Text;
S,Sx,NameFile: String;
SM: mass;
i,n,nf: integer;

Procedure Sort_FIO(var SM:mass; nf: integer);
Var S: String;
i,j : integer;
begin
for i:=2 to nf do
 begin
 for j:=nf downto i do
 begin
 if SM[j-1]>SM[j] then
   begin
   S:=SM[j-1];
   SM[j-1]:=SM[j];
   SM[j]:=S;
   end;
 end;
 end;
end;

Procedure Sort_gr;
Var S,S1,S2: String;
i,j : integer;
begin
for i:=2 to nf do
 begin
 for j:=nf downto i do
 begin
 S1:=Copy(SM[j-1],pos(',',SM[j-1])+2,5);
 S2:=Copy(SM[j],pos(',',SM[j])+2,5);
 if S1>S2 then
   begin
   S:=SM[j-1];
   SM[j-1]:=SM[j];
   SM[j]:=S;
   end;
 end;
 end;
end;

Procedure Wywod_File;
begin
NameFile:='base_out.txt';
Assign(Fl,NameFile);
ReWrite(Fl);
for i:=1 to nf do writeln(Fl,SM[i]);
Close(Fl);
end;

Procedure Wywod_Format;
Var
S,SA,S1,S2,S3,S4 : String;
begin
for i:=1 to nf do
 begin
  writeln(SM[i]);
 end;
end;

Begin
Cls; 
writeln('Введите часть фамилии или "1" если поиск не нужен: ');
Readln(Sx);
n:=Length(Sx);
writeln(Sx,'   Len=',n);
writeln;

NameFile:='base.txt';
Assign(Fl,NameFile);
Reset(Fl);
i:=1;
while not eof(Fl) do begin
readln(Fl,S);
SM[i]:=S;
i:=i+1;
if Copy(S,1,n)=Sx then writeln(S);
nf:=i-1;
end;
Writeln;
Close(Fl);

{Writeln(' nf=',nf);}
Sort_FIO(SM,nf);
Sort_gr;
Wywod_File;
Wywod_Format;
readln

End.

Писал единичку, список выводит, дальше не проверял.

[alex_warrior]

спасибо большое) завтра пойду проверять на его компе))

[whatever]

Честно, не знаю, из-за этого ли были ошибки, но мой вариант откомперлировался и запустился, base_out.txt создался. На всякий случай, можешь попробовать этот FPC