Информационные системы создаются под конкретную задачу. Пример для простой задачи печати визиток для небольшой фирмы в несколько сот человек. Работа с базой возможна как двойным щелчком по выделенной строке, так и кнопкой перехода. Защита без пароля. Защиту в рабочем режиме не снимайте, чтобы не повредить формулы связи с базой.
Var a: array[1..10] of integer; i, j, temp: integer; begin randomize; for i := 1 to 10 do begin a[i] := random(100,999); write(a[i]:3); end; writeln; for i := 1 to 10 - 1 do for j := i + 1 to 10 do if a[i] > a[j] then begin temp := a[i]; a[i] := a[j]; a[j] := temp; end; for i := 1 to 10 do write(a[i]:3); end.