Ошибка в программе

[Foxx]

Здравствуйте! Ниже приведен код программы. Возникает ошибка.

program Work_4;

{$APPTYPE CONSOLE}

  type vector=array[1..100] of integer;
  var vr,n,i,a,b:integer;
               h:vector;
             dev:text;
            name:string;
              ga:real;

procedure part_1(vr,n,a,b:integer; var h:vector);
  var i:integer;
begin
  if vr<>1 then randomize;
  for i:=1 to n do h[i]:=a+round((b-a)*random(100)/100);
end;

procedure part_2(n:integer; h:vector; var ga:real);
  var i,k:integer;
        s:real;
begin
  s:=0;
  k:=0;
  for i:=1 to n  div 4 do
   If ((a/2<=h[i]) and (h[i]<=b/2)) and (h[i]<>0) then
    begin
    s:=s+1/h[i];
    k:=k+1;
    end;
  if k>0 then
   if s<>0 then ga:=k/s
           else ga:=0
         else ga:=0;
end;

procedure part_3(n,a,b:integer; h:vector);
  var i,k,m:integer;
begin
  m:=-maxint; { Наибольшее значение переменной целого типа в Паскале = 32767 }
  k:=0;
  i:=2*n div 3+1;
  while i<=n do
   begin
    if abs(h[i])<m then
     begin
     m:=abs(h[i]);
     k:=i;
     end;
    i:=i+2;
   end;
  if k>0 then
   begin
   writeln(dev,'Наименьшее по модулю значение M = ',m:3);
   write(dev,'имеют H[',k:2,'] = ',h[k]:2);
   i:=k+1;
   while i<=n do
    begin
    if abs(h[i])=m then write(dev,'    H[',i:2,'] = ',h[i]:2);
    i:=i+2;
    end;
   writeln(dev);
   end
         else writeln(dev,'Нет нужных элементов');
end;

procedure part_4(n:integer; var h:vector);
  var i,j,k,buf:integer;
begin
  for i:=1 to n div 3-1 do
   if h[i]<0 then
    begin
    k:=i;
    for j:=i+1 to n div 3  do
     if h[j]<0 then
      if h[k]<h[j] then k:=j;
    buf:=h[i];
    h[i]:=h[k];
    h[k]:=buf;
    end;
end;

begin
  writeln('для вывода на экран введите con');
  writeln('для вывода на принтер введите prn');
  write('для вывода в файл введите его адрес: ');
  readln(name);
  assign(dev,name);
  rewrite(dev);
  write('введите вариант расчета Vr => ');
  readln(vr);
  if vr=0 then
   begin
   n:=20; a:=-3; b:=4;
   h[1] := 1; h[2] := 0; h[3] :=-3; h[4] := 2; h[5] := 0;
   h[6] :=-3; h[7] := 4; h[8] := 3; h[9] := 2; h[10]:= 0;
   h[11]:= 0; h[12]:= 4; h[13]:= 0; h[14]:=-2; h[15]:=-1;
   h[16]:=-1; h[17]:= 1; h[18]:= 4; h[19]:= 2; h[20]:= 3;
   end
          else
   begin
   write('Введите n,a,b => '); readln(n,a,b);
   part_1(Vr,n,a,b,h);
   end;
  writeln(dev,'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
  writeln(dev,'Исходный массив:');
  for i:=1 to n do
   begin
   write(dev,h[i]:3);
   if i = n div 2 then writeln(dev);
   end;
  writeln(dev);
  writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
  part_2(n,h,ga);
  writeln(dev,'Среднегармоническое Ga=',Ga:7:4);
  writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
  part_3(n,a,b,h);
  writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
  part_4(n,h);
  writeln(dev,'Упорядоченный массив:');
  for i:=1 to n do
   begin
   write(dev,h[i]:3);
   if i = n div 2 then writeln(dev);
   end;
  writeln(dev);
  writeln(dev,'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
  close(dev);
end.

[Прик]

Ошибки не возникает.

[Пепел Феникса]

у вас какие то проблемы с доступом к файлу exe проекта, может он запущен?

[Foxx]

Разобрался. Все работает. Только вот русские буквы не правильно отображаются. Такое возникает также при копировании текста программы с Pascal ABC в Word при раскладке клавиатуры английской.

[Пепел Феникса]

про русский язык в консоли говорилось тысячи раз.