Работа с записями

[Ilai]

Добрый день!
Пожалуйста, помогите с программой. Вроде написал, но проверить не могу. Где то находит ошибку. Начинаю проверять по Pascal а он уже в строке, указанной стрелкой, выдает ошибку. Хотя когда просто запускаешь программу, на этом месте программа не вылетает. Вот только где-то в конце ошибка. Помогите пожалуйста, будьте добры.

Program Z8_2;
const n=5;
      m=3;

type Rab=record
     fio: string;
     spe: string;
     age: byte;
     raz: byte;
     num: byte;
     end;

     Brig=record
     feo: string;
     nam: byte;
     end;

     arRab=array[1..n] of Rab;
     arBrig=array[1..m] of Brig;

var
   a: arRab;
   b: arBrig;
   c: string;
   i, j, k: integer;

begin

  for i:=1 to n do
    with a[i] do
         begin
         write('ФИO ',i,' рабочего: '); readln(fio);
         write('Возраст: '); readln(age);
         write('Cпециализация: '); readln(spe);
         write('Разряд: '); readln(raz);               <-------доходит в программе до этой cтроки и выдает ошибку
         write('Номер бригады: '); readln(num);
         writeln;
         end;

  for j:=1 to m do
    with b[j] do
         begin
         write('ФИО ' ,j, ' бригадира: '); readln(feo);
         write('Номер бригады: '); readln(nam);
         writeln;
         end;

    write('Введите ФИО рабочего: '); readln(c);
      for i:=1 to n do
         with a[i] do
           begin
            if fio=c then
              k:=num;
               for j:=1 to m do
               with b[j] do
                if nam=k then
                 c:=feo;
                 write('ФИО бригадира: ', c);
         end;
        end.

[Stilet]

и выдает ошибку

Где? Не вижу.

[Ilai]

Я выполняю в Pascal программу пошагово. Как только доходит до строки

write('Разряд: '); readln(raz);

выдает ошибку. А если программу запустить просто из файла exe то программа нормально проходит эту строку. При ошибке выводит вот это сообщение

[Stilet]

Ну? А чего сразу не выложил? Стеснялся что ли?
Паскаль у тебя какой?
Возьми поновее. Free Pascal твой код нормально отрабатывает/

[Ilai]

Извините, как то сразу не подумал) У меня Free Pascal 2.6.4

[Stilet]

Я могу только пособолезновать ибо твой код такую ошибку на моей 264 не дает.
Т.е. он то правильный за исключением отсутствия readln в конце, но это не ошибка.
Проверял под вЯндой 8. Под линухом не знаю.

[Ilai]

Ну у меня тоже восьмерка стоит. Ладно, попробую Turbo Pascal установить. Спасибо за помощь)

[Stilet]

попробую Turbo Pascal установить.

А можт для начала с правами админа запустить?