Разработать программу «Словарь терминов». Область знаний экология. Минимальное количество терминов 10 — Pascal(Паскаль)

Program Slovar;
uses crt;
label A;
var
a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:record
i,z1:integer;
g,s:String;
end;
e:string;
o:integer;
begin
a1.s:=('Экология - это ...');
a2.s:=('Биогеоценология - это ...');
a3.s:=('Биогеоценоз - это ...');
a4.s:=('Абиотическая среда - это ...');
a5.s:=('Биосфера - это ...');
a6.s:=('Среда обитания - это ...');
a7.s:=('Биотические факторы - это ...');
a8.s:=('Антропогенные факторы - это ...');
a9.s:=('Геоморфология - это ...');
a10.s:=('Жизненность - это ...');
a1.g:=('Экология  ');
a2.g:=('Биогеоценология ');
a3.g:=('Биогеоценоз  ');
a4.g:=('Абиотическая среда*  ');
a5.g:=('Биосфера*  ');
a6.g:=('Среда обитания  ');
a7.g:=('Биотические факторы  ');
a8.g:=('Антропогенные факторы  ');
a9.g:=('Геоморфология  ');
a10.g:=('Жизненность  ');
a1.i:=1;
a2.i:=2;
a3.i:=3;
a4.i:=4;
a5.i:=5;
a6.i:=6;
a7.i:=7;
a8.i:=8;
a9.i:=9;
a10.i:=10;
textcolor (yellow);
textbackground (green);
clrscr;
gotoxy(35,2);
textbackground (green);
writeln ('ЭКОЛОГИЯ');
gotoxy(32,7);
textcolor (yellow);
writeln('Список терминов');
gotoxy(20,9);
textcolor (yellow);
writeln(a1.i,' - ',a1.g); gotoxy(20,10);
writeln(a2.i,' - ',a2.g); gotoxy(20,11);
writeln(a3.i,' - ',a3.g); gotoxy(20,12);
writeln(a4.i,' - ',a4.g); gotoxy(20,13);
writeln(a5.i,' - ',a5.g); gotoxy(20,14);
gotoxy(50,9);
writeln(a6.i,' - ',a6.g); gotoxy(50,10);
writeln(a7.i,' - ',a7.g); gotoxy(50,11);
writeln(a8.i,' - ',a8.g); gotoxy(50,12);
writeln(a9.i,' - ',a9.g); gotoxy(50,13);
writeln(a10.i,' - ',a10.g); gotoxy(50,14);
textcolor (yellow);
gotoxy (18,15);
writeln('Введите номер нужного термина от "1" до "10"');
gotoxy(4,16);
A:readln(o);
 
window(4,17,78,20);
if o=a1.i then writeln (a1.s);
if o=a2.i then writeln (a2.s);
if o=a3.i then writeln (a3.s);
if o=a4.i then writeln (a4.s);
if o=a5.i then writeln (a5.s);
if o=a6.i then writeln (a6.s);
if o=a7.i then writeln (a7.s);
if o=a8.i then writeln (a8.s);
if o=a9.i then writeln (a9.s);
if o=a10.i then writeln (a10.s);
if o>a10.i then writeln ('Термина с данным порядковым номером не существует!');
writeln('');
delay(1000);
write ('Завершить работу программы? Напишите "да" или "нет".');
readln(e);
if e='нет' then begin writeln ('Введите номер нужного термина.'); goto A; end;
readln;
end.