это таже задача, которую я описывал ниже, но теперь нужно считывать значения из текстового файла. Условие задачи: ввести в массив данные из файла и с помощью процедуры преобразовать массив следующим образом: заменить элементы нулями, если они попадают в заданный интервал (x,y).
Я провозился несколько часов, но что-то видимо опять не понимаю.. Программа заменяет нулями все элементы. Посмотрите пожалуйста.

кстати, это программа (если она вообще должна работать ) не может работать с двузначными и более числами, т.к. читает посимвольно. А хотелось бы чтобы читала любые, но это вообще непосильная пока для меня задача. Хоть бы так заработала I need help.

Вот так попробуй:

program massivf;
uses crt;
const n=20;

var
  f: text;
  x, y:longint;

  i: integer;
  a: array[1 .. n] of longint;

procedure p (var z:longint);
begin
  z:=0;
end;

begin
  clrscr;
  writeln('введите границы диапазона');
  readln(x, y);

  assign(f,'mas.txt');
  reset (f);

  i := 0;
  while not eof(f) do begin
    inc(i);
    read(f,a[i]);
    if (a[i] > x) and (a[i] < y) then p(a[i]);
    writeln(a[i]);
  end;

  close(f);
end.

тестировалось на файле:

Спасибо, всё работает!
А почему я буду разбираться завтра
Я понимаю так, что мы считываем из текстового файла сразу целочисленные значения.. я думал, что всё, что там находится является символьным типом и поэт. нужно, руководствуясь ascii, "переводить" c помощью ord в longint.
Этот момент мне не понять и требует изучения. Буду заниматься дальше.
Интересно, а если разделять значения запятыми, то без ord() не обойтись?

Ищи по форуму, я выкладывал код, который работает независимо от того, как разделены значения в файле...

Хотя ... Я сам тебе дам ссылку...
Вот здесь: Помогите с запятыми

Спасибки!
Буду разбираться!