массив формируемый из текстового файла Опции

[torok]

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

Код

program massivf;
uses crt;
const n=3;
var f:text;
x,y:longint;
ch,i: char;
a,b,c,z: array [char] of longint;
procedure p (var z:longint);
begin
z:=0;
end;
begin
clrscr;
writeln('введите границы диапазона');
read (x,y);
assign(f,'mas.txt');
reset (f);
while not eof(f) do begin
read(f,ch);
if (ord(ch)>x) and (ord(ch)<y) then p(a[ch]) else a[ch]:=ord(a[ch]);
writeln(a[ch]);
end;
close(f);
end.

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