New(NewNode)

Name := UpCase(DName[1]) + LowerCase(Copy(DName,2,Length(DName)-1)

Sort := UpCase(DSort[1]) + LowerCase(Copy(DSort, 2, length(DSort) - 1))

Kolvo := DKolvo

Price := DPrice

Stoim := inttostr(strtoint(Price) * strtoint(kolvo))

NewNode^.next := nil

Да Нет

Head = nil

NewNode^.data.Number := Tail^.data.number + 1

NewNode^.data.number := 1

Head := NewNode Tail^.next := NewNode

Tail := NewNode NewNode^.prev := Tail

Tail := NewNode

OutPut

ShowMessage

('Запись успешно доавлена!')

Конец

Рисунок 1 – блок-схема процедуры добавления записи в двухсвязный список

Начало

Да Нет

ProvDat

FileName := FileName + '.dat'

assign(F, FileName)

rewrite(f)

Temp := Head

Temp <> nil

write(f,data)

Temp := next

close(f)

ShowMessage ('Файл успешно сохранен!')

Конец

Рисунок 2 – блок-схема процедуры сохранения в файл