Посимвольное чтение нетипизированных файлов

[Wi1D]

Добрый вечер!!!
Кто знает погомогите.Я не понимаю как мне правильно написать...вообщем вот задание...
Прочитать текстовый файл посимвольно на экран. Использовать нетипизированные файлы.

[Wi1D]

Вот я написал код...но он выдает Disc read error
Program PoCum;
uses CRT;
var f:file;
a:char;
begin
ClrScr;
assign(f,'E:\test1.txt');
reset(f,32);
while not eof(f) do
begin
Blockread(f,a,5);
write(a);
end;
close(f);
readkey;
end.

[Mikhail Bakurov]

попробуйте определить
f:TextFile;
или
f: file of char;

И вобще, в данном варианте обязательно должен быть создан файл.
Ошибку можно убрать (просто, чтобы не выскакивала) поставив директивы

{$I-}

{$I+}

[Wi1D]

Не))я переписал прогу!)))

Program TToCuM;
uses CRT;
var f:file;
		a:char;
begin
 ClrScr;
	assign(f,'C:\test1.txt');
	reset(f,1);
	while not eof(f) do
	 begin
		Blockread(f,a,sizeof(a));
		write(a,' ');
	 end;
	close(f);
	readkey;
end.

[100GRamm]

Привет ! А если надо посимвольно прочесть ЕХЕ файл?
я , вроде все правильно сделал, но прога выдает ошибку чтения запределами файла.

function FindString(sway,sstr:string):longin t;
var f:file of char; fs:longint; pos,fnd:longint; c1,c2,c3,c4,c5:char; dd:string;
begin
dd:='D:\4G\PROGRAMMERS\DELPHI\2010\ destruct\acsess program\acc.exe' ;
assignfile(f,dd);
fs:=398848-25;
pos:=0; fnd:=0;
reset(f);
while (pos<=fs) or(fnd=0) do
begin
inc(pos); seek(f,pos); read(f,c1,c2,c3,c4,c5);
if (c1='M')and(c2='Y')and(c3='D'){and( c4=sstr[4])and(c5=sstr[5]) }then
fnd:=pos;

end;
closefile(f);
result:=fnd;
end;