Delphi записи

[tanek]

Здраствуйте дорогие форумчанины
Дано такое задание:
Ведомость абитуриентов, сдавших вступительные экзамены в университет, содержит: Ф.И.О., адрес, оценки. Определить количество абитуриентов, проживающих в г.Минске и сдавших экзамены со средним баллом не ниже 4.5, вывести их фамилии в алфавитном порядке.
Написала программу, а она выдает ошибку. типо не хватет индекса.... Не могли бы вы мне помочь исправить? заранее спасибо.....

эта процедура в которой выдает ошибка

function famaly(s2:string):string;
var
  i:integer;
  symbol:char;
  temp:string;
begin
    result:='';
    for i := 1 to length(s2) do begin
          symbol:=s2[i];
          if symbol<>#32 then
            result:=Result+symbol
          else exit;
          end;

end;
procedure TForm3.Button6Click(Sender: TObject);
 const
   temp='минск';
   temp_ball=4.5;
 var i :  word;
       str:tstringlist;
       s,s2:string;

begin

 for i:=1 to nzap-1 do                   // Сортировка массива записей
   if Spiski[i].adress=temp then
    if Spiski[i].sball >= temp_ball then begin
          s2:=Spiski[i].FIO;
          S:=s+famaly(s2);
          s:=s+' ';
    end;
          str:=tstringlist.Create;
          str.Text:=StringReplace(S, ' ', #13#10, [rfReplaceAll]);
          str.Sort;

      Memo1.Clear;
  for i:=1 to nzap-1 do                    // Вывод в окно Memo1 отсортированных записей
          with Spiski[i] do
     Memo2.Lines.Add(IntToStr(i)+'  '+str[i]+'  '+FloatToStrf(sball,fffixed,4,2));
  str.Free;
end;

[.Phoenix]

На каком имено этапе выдаёт ошибку у тебя?

[pesi]

исправленный лаба 6[1].11.rar