Паскаль. Подскажите как лучше написать программу

[OR1GAMI]

Пишу программу в паскале. Вводятся данные(Индекс, Имя, Фамилия, Нас пункт, Обл, Район) и записываются в соответствующие массивы. После записи данных выводится сообщение (Повторить ввод данных?) Если пользователь вводит Y то пользователь опять вводит данные которые записываются в следующие ячейки массива и так пока не введет N. Если N то выводится сообщение (Вывести все введенные данные?) если да то выводятся все выше введенные данные.

  program zavd5;
var
 indexmas: array [1..100] of integer;
 nasmas: array [1..100] of string;
 oblmas: array [1..100] of string;
 ramas: array [1..100] of string;
 vnzmas: array [1..100] of string;
 fiomas:array [1..100] of string;
 namemas:array [1..100] of string;
 vopros1, vopros2,vopros3: char;
 index: integer;
 nas, obl, ra, vnz: string;
 i: integer;
begin
 writeln('Введіть п*ятизначний індекс: ');
 readln(indexmas[1]);
 writeln('Введіть ваше прізвище: ');
 readln(fiomas[1]);
 writeln('Введіть ваше ім*я: ');
 readln(namemas[1]);
 writeln('Введіть вашу область: ');
 readln(oblmas[1]);
 writeln('Введіть ваш район: ');
 readln(ramas[1]);
 writeln('Введіть ваш населений пункт: ');
 readln(nasmas[1]);
 writeln('Введіть ваш ВНЗ: ');
 readln(vnzmas[1]);
  writeln('Створення завершено, бажаєте додати ще один запис? (Y/N)');
  read(vopros1);
  if vopros1 = 'Y' then 
 repeat
    writeln('Введіть п*ятизначний індекс: ');
    readln(indexmas[i+1]);
    writeln('Введіть ваше прізвище: ');
    readln(fiomas[i+1]);
    writeln('Введіть ваше ім*я: ');
    readln(namemas[i+1]);
    writeln('Введіть вашу область: ');
    readln(oblmas[i+1]);
    writeln('Введіть ваш район: ');
    readln(ramas[i+1]);
    writeln('Введіть ваш населений пункт: ');
    readln(nasmas[i+1]);
    writeln('Введіть ваш ВНЗ: ');
    readln(vnzmas[i+1]);
    writeln('Створення завершено, бажаєте додати ще один запис? (Y/N)');
    read(vopros1);
  until vopros1 = 'N';
  readln(vopros1);
  if vopros1 = 'N' then begin
     writeln('Вивести створену базу даних? (Y/N)');
     end;
     readln(vopros2);
     if vopros2 = 'Y' then begin
     writeln('Індекс: ', indexmas[1]+1);
     writeln('Прізвище: ', fiomas);
     end
     else
  end.

[ViktorR]

Есть раздел по Паскалю.
Там есть список литературы.
Найдите Т.А. Павловская, Программирование на ЯВУ, Паскаль.
Прочитайте про записи, динамические структуры и, например, списки.
Думаю, это то что вам поможет.