Ошибка в коде

[gabriela]

Ошибка в коде

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;

  type  tmas=array [0..1000] of Real;

  Procedure Read_file(Var file_name: string); //считывание информации

  Var
  i,n,j,Xx:Integer;
  f:Text;
  x,y:tmas;
  s:string;
  begin
    Assign(f,file_name);
    Reset(f);
    Read(f,n);
    writeln('Размерность таблицы:   ',n);
    Writeln('Данные');
    for i:=0 to n do
    begin
      read(f,x[i]);
      writeln (x[i]:3:2)
    end;
    Writeln('Вектор значений функции:');
    for j:=0 to n do
    begin
      Read(f,y[j]);
      writeln(y[j]:3:2)
    end;
    Read(f,Xx);
    Writeln('Проверяемое значение аргумента:',Xx);
    Close(f)
  end;

   function proverka(x:Tmas;n:integer):Boolean;
   var i:Integer;
       t:Boolean;
   begin
     i:=0;
     t:=true ;
     while (i<n) and t do
     begin
       t:=(x[i]<x[i+1]);
       inc(i)

     end;
     proverka:=t;
     Writeln(t)
   end;

 function proverka1(x:tmas;Xx:real;n:integer):boolean;
 var
     t:Boolean;
 begin
   t:=((Xx>=X[0])and (Xx<=X[n]));
   proverka1:=t;
   Writeln(t);
 end;

var file_name,s:string;
    F:Text;
    x:tmas;
    n:Integer;
    xx:Real;
begin
  setconsoleoutputcp(1251);
  setconsolecp(1251);
  writeln('Введите имя файла');
  readln(file_name);
  file_name:=file_name+'.txt';
  Read_file(file_name);
proverka(x,n);
proverka1(x,xx,n);
 readln
end.

помогите найти ошибку в функции proverka1,из-за нее программа не работает(((

 

[Vladimir_S]

помогите найти ошибку в функции proverka1,из-за нее программа не работает(((

Не прежде, чем Вы кратко опишите суть решаемой задачи и, что существеннее, выложите текстовый файл.

 

[gabriela]

первая строка количество элементов в массиве.Элементы во второй строке должны быть расположены в порядке строгого возрастания.третья строка-значения функции.четвертая-проверяемое значение,оно должно принадлежать промежутку элементов второй строки

 

[Vladimir_S]

Gabriela, даже и не знаю, чем помочь: у меня в DOS Free Pascal программа запускается и работает на ура. Единственная редактура: выкинуты модули, команды установки шрифтов, а также выводимые сообщения переделаны на английский (с кириллицей там совсем глухо). Результат: