Основы программирования на языке Turbo Pascal. Беляева И.В. - 220 стр.

UptoLike

Составители:

Рубрика:

220

imin:=i;

for j:=i+1 to n do

if person[j].familia<person[imin].familia

then

imin:=j;

Exchange(list,i,imin);

end;

{Сохранение списка записей list в файле с именем filename

Возвращается true – если список сохранен

false – если была ошибка записи в файл

}

function SaveList(var list:ListOfPerson; const filename:string):boolean;

var

f:file of MedicalInfo;

i:byte;

begin

assign(f,filename);

{$I-}

rewrite(f);

{$I+}

if ioresult<>0

then

begin

SaveList:=false;

exit;

end;

for i:=1 to list.n do

write(f,list.person[i]);

close(f);

SaveList:=true;

end;