Помогите создать базу данных на паскале.

type base = record
fio: string [15];
name: string [15];
sex: integer;
ball: real;
end;
var i, j, n: integer;
table: array [1..100] of base;
a: array [1..100] of real;
const fio_man : array [1..7] of string = ('Иванов', 'Петров','Сидоров','Каменев','Попов','Куба','Тимашенко' );
name_man : array [1..7] of string = ('Алексей', 'Сергей','Андрей','Олег','Игорь','Петр','Тимофей' );
fio_woman : array [1..7] of string = ('Иванова', 'Петрова','Сидорова','Каменева','Попова','Кубикова','Петренко' );
name_woman : array [1..7] of string = ('Арина', 'Марина','Карина','Полина','Ирина','Мальвина','Малина' );
begin
randomize;
write (' Введите количество студентов [1..100]:');
readln (n);
writeln;
writeln ('ФАМИЛИЯ':12,'ИМЯ':15,'ПОЛ':10,'БАЛЛ':10);
for i:=1 to n do
begin
table[i].sex:=random (2);
if table[i].sex = 0 then
begin
table[i].fio:= fio_man [1+random(7)];
table[i].name:= name_man [1+random(7)]
end
else
begin
table[i].fio:= fio_woman [1+random(7)];
table[i].name:= name_woman [1+random(7)]
end;
table[i].ball:=(200+random (301))/100;
write (table[i].fio:15);
write (table[i].name:15);
if table[i].sex=1 then write ('ж':6)
else write ('м':6);
writeln (table[i].ball:11:2);
a[i]:=table[i].ball;
end;
for i:=1 to n do
for j:=1 to n do
if a[i] < a[j] then
begin
a[n+1]:=a[i];
a[i]:=a[j];
a[j]:=a[n+1];
end;
//for i:=1 to n do write (a[i]:5:2);
writeln;
writeln ('Девушки по возрастанию среднего балла (решение)');
for j:=1 to n do
for i:=1 to n do
if (a[j] = table[i].ball) and (table[i].sex = 1) then
begin
write (table[i].fio:15);
write (table[i].name:15);
if table[i].sex=1 then write ('ж':6)
else write ('м':6);
writeln (table[i].ball:11:2);
end;
end.

Базы данных на паскале не создаются

создай массивы:
name, secondname:array[1..100]of string;
gender:array[1..100]of boolean;
score:array[1..100]of longint;
И уже потом работай с ними.