Подскажите плз. как работать с файлами в Pascal 7 не использую стандартных процедур типа assign,reset и.т.п. Дате хоть какой-нибудь пример.

Странное расположение темы.

А вообще-то помнится я через прерывания пытался работать с диском, только ничего хорошего из этого не вышло

ИМХО если ты не хочешь использовать assign, reset и.т.п, ты будешь вынужден:
1. Или работать с ДОС-прерываниями. Здесь могу посоветовать книгу Зубкова по ассемблеру. Но смысла не вижу, так как assign и reset работают с этими самыми прерываниями и не думаю, что твой вариант сильно улучшит работу программы. Или
2. Работать с диском минуя даже ДОС, но тут я ничего не посоветую, так как этим делом не занимался...
Но скажу, что второй вариант скорее всего не прокатит под WinNT/2000/XP/2003. Первый, наверное, тоже.

Способ один - ВЫБИРАЙ ASM !!!

А как насчёт WinAPI?

Ну может он имел ввиду вообще без функций работы с файлами, хоть апишных хоть каких?
ТОгда это только ассемблер, через вставки!

Вот сбацал примерчик:

Код

program ExampleFileIO; uses WinDos; type  THandle = word; { Attrs: 00advshr           a - archive           d - directory           v - volume label - don't set this flag           s - system           h - hidden           r - read-only } procedure FileCreate (var Handle : THandle; FileName : PChar; Attrs : word); var Regs : TRegisters; begin  Regs.ah := $3c; { FUNC=CreateFile }  Regs.cx := Attrs;  Regs.ds := Seg(FileName^);  Regs.dx := Ofs(FileName^);  MsDos( Regs );  Handle := Regs.ax; end; procedure FileOpen (var Handle : THandle; FileName : PChar); var Regs : TRegisters; begin  Regs.ax := $3d02; { FUNC=OpenFile, MODE=Read-Write }  Regs.cx := 0;  Regs.ds := Seg(FileName^);  Regs.dx := Ofs(FileName^);  MsDos( Regs );  Handle := Regs.ax; end; procedure FileClose (var Handle : THandle); var Regs : TRegisters; begin  Regs.ah := $3e; { FUNC=CloseFile }  Regs.bx := Handle;  MsDos( Regs );  Handle := 0; end; procedure FileDelete (FileName : PChar); var Regs : TRegisters; begin  Regs.ah := $41; { FUNC=DeleteFile }  Regs.ds := Seg(FileName^);  Regs.dx := Ofs(FileName^);  MsDos( Regs ); end; { Mode: 0 = From beginning of file        1 = From current position        2 = From end of file (back direction) } function FileSeek (Handle : THandle; Mode : byte; Distance : Longint) : LongInt; var Regs : TRegisters; begin  Regs.ah := $42; { FUNC=SetFilePointer }  Regs.al := Mode;  Regs.bx := Handle;  Regs.cx := Distance shr 16;  Regs.dx := Word(Distance);  MsDos( Regs );  FileSeek := (Regs.dx shl 16) or Regs.ax; end; function FilePos (Handle : THandle) : Longint; var Regs : TRegisters; begin  Regs.ax := $4201; { FUNC=SetFilePointer, MODE=RelativeOffset }  Regs.bx := Handle;  Regs.cx := 0;  Regs.dx := 0;  MsDos( Regs );  FilePos := (Regs.dx shl 16) or Regs.ax; end; function FileSize (Handle : THandle) : Longint; var OldPos : Longint; begin  OldPos := FilePos (Handle);  FileSize := FileSeek (Handle, 2, 0);  FileSeek (Handle, 0, OldPos); end; { Returns number of bytes actually read } function FileRead (Handle : THandle; var Buffer; Count : word) : word; var Regs : TRegisters; begin  Regs.ah := $3f; { FUNC=ReadFile }  Regs.bx := Handle;  Regs.cx := Count;  Regs.ds := Seg(Buffer);  Regs.dx := Ofs(Buffer);  MsDos( Regs );  FileRead := Regs.ax; end; { Returns number of bytes actually written } function FileWrite (Handle : THandle; var Buffer; Count : word) : word; var Regs : TRegisters; begin  Regs.ah := $40; { FUNC=WriteFile }  Regs.bx := Handle;  Regs.cx := Count;  Regs.ds := Seg(Buffer);  Regs.dx := Ofs(Buffer);  MsDos( Regs );  FileWrite := Regs.ax; end; var  F : THandle;  p : longint;  s : string; begin  FileCreate (F, 'c:\abcd.dat', 0);  s := 'Hello!'#13#10;  FileWrite (F, s[1], Length(s));  s := 'Testing...'#13#10;  FileWrite (F, s[1], Length(s));  FileClose (F); end.

Работает через handle-oriented файлы DOS...
FileCreate/FileOpen/FileClose - создание/открытие/закрытие файла
FileDelete - удаление файла (не открывая его)
FileSeek/FilePos - установка/чтение позиции
FileSize - возвращает размер файла
FileRead/FileWrite - чтение/запись файла

А в наш FAQ заглядывал? Там приведены практически все способы работы с файлами... Статья называется "всё о файлах"