В чем ошибка, скажите пожалуйста, почему не работает?

Program m10;
type MARCH = record
        NNP:string[25]; // нач пункт //
        NKP:string[25];  // кон пункт //
        Nom:char; // номер //
             end;
var Mach:array[1..8] of MARCH;
     a:integer;
  begin
    for a:=1 to 8 do
    begin
      writeln(' нач пункт'); // Москва Ростов Казань Краснодар Спб Таганрог Азов Аксай  //
      read(Mach[a].NNP);
      read;
      writeln('кон пункт'); // Аксай Азов Таганрог Спб Москва Ростов Казань Краснодар//
      read(Mach[a].NKP);
      writeln('номер'); //   //
      read(Mach[a].Nom);
      writeln(Mach[a].NNP,Mach[a].NKP,Mach[a].Nom);
    end;
    read(Mach[a].Nom);
      writeln(Mach[a].NNP,Mach[a].NKP);
  end.

const n=8;
type MARCH = record
             NNP:string[25]; // нач пункт //
             NKP:string[25];  // кон пункт //
             Nom:integer; // номер //
             end;
var Mach:array[1..n] of MARCH;
     a:integer;
begin
for a:=1 to n do
 begin
  writeln(' нач пункт'); // Москва Ростов Казань Краснодар Спб Таганрог Азов Аксай  //
  readln(Mach[a].NNP);
  writeln('кон пункт'); // Аксай Азов Таганрог Спб Москва Ростов Казань Краснодар//
  readln(Mach[a].NKP);
  writeln('номер'); //   //
  readln(Mach[a].Nom);
 end;
for a:=1 to n do  
writeln(Mach[a].Nom:5,Mach[a].NNP:10,Mach[a].NKP:10);
end.