[Pascal ABC.NET] Помогите исправить ошибку Встречено '.', а ожидалось ';'

[Php09025]

Помогите исправить ошибку Встречено '.', а ожидалось ';'

Program BD;
uses crt;
  Procedure Zero;
var
  p_Baza: mas;
  const
  max = 15; 
  Procedure One;
  Procedure Two;
var
  N: Byte;
begin 
repeat
  Clrscr; 
  WriteLn('Меню');
  WriteLn('1. Добавление записи');
  WriteLn('2. Вывод записей на экран');
  WriteLn('3. Сортировка');
  WriteLn('4. Выход');
  Write('Введите номер пункта меню: ');
  ReadLn(N);
  case N of
    1: Zero;
    2: One;
    3: Two;
    else WriteLn('Вы ввели не правильный пункт меню');
  end;
until N = 4;
end;
type
mas=array[1..max] of baza; 
baza = record
  nomer_bibl: integer; 
  nazvanie: string[30]; 
  adress: string[50]; 
  telefon_bibl: integer;
procedure add;
begin
 i: byte;
for var i:= 1 to max do
  begin
    with p_Baza[i] do
      begin
        WriteLn('Заполняем ', i, ' запись');
        Write('Введите номер библиотеки: ');
        ReadLn(p_Baza[i].nomer_bibl);
        Write('Введите название библиотеки: ');
        ReadLn(p_Baza[i].nazvanie);
        Write('Введите адресс библиотеки: ');
        ReadLn(p_Baza[i].adress);
        Write('Введите телефон библиотеки: ');
        ReadLn(p_Baza[i].telefon_bibl);
      end;
  end;
end;
procedure outdisplay;
begin
   i: byte;
  for var i := 1 to max do
    begin
      with p_Baza[i] do
        begin
          WriteLn('Номер библиотеки: ', p_Baza[i].nomer_bibl);
          WriteLn('Название библиотеки: ', p_Baza[i].nazvanie);
          WriteLn('Адресс библиотеки: ', p_Baza[i].adress);
          WriteLn('Номер телефона библиотеки: ', p_Baza[i].telefon_bibl);
          WriteLn;
          add;
          outdisplay;
          end;
          begin
          add;
          outdisplay;
          end;
          end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[evg_m]

Помогите исправить ошибку Встречено '.', а ожидалось ';'

чтобы НЕ считать количество begin и СРАВНИВАТЬ их с количеством end
Форматируйте КОД (это нужно человеку а не компьютеру)

procedure outdisplay;
begin
  i: byte;
  for var i := 1 to max do
  begin
    with p_Baza[i] do
    begin
      WriteLn('Номер библиотеки: ', p_Baza[i].nomer_bibl);
      WriteLn('Название библиотеки: ', p_Baza[i].nazvanie);
      WriteLn('Адресс библиотеки: ', p_Baza[i].adress);
      WriteLn('Номер телефона библиотеки: ', p_Baza[i].telefon_bibl);
      WriteLn;
      add;
      outdisplay;
    end;
    begin
      add;
      outdisplay;
    end;

end.

P.S. прочие ошибки (в т.ч. и в приведенном фрагменте) даже не думал исправлять