Помогите пгожалуйста с растром?, Вывод растрового изображения из файла Опции

[Zetrok]

Мне тут надо из файла, ваывести небольшое растровое изображение на экран(без подкачки)ж
Довольно прилично подумав я получил такую прогу

program picture;
uses graph;
const
     n=20;
     m=20;
var
   driver, mode, x, y, c: integer;
   i,j:integer;
   A: array[1..n,1..m] of integer;
procedure schit (var f: file);
          begin
               Assign(f,'d:\Programs\file.bmp');
               reset(f);
               For i  := 1 to n do
                   for j := 1 to m do
                      A[i,j]:= read(f,i,j);
               close(f);
         end;
end;

begin
     driver:=detect;
     schit;
     InitGraph(driver,mode,'d:\tp\BGI');
If A[i,j]=0 then Putpixel(i,j,0)
else putpixel(i,j,1);
     closegraph;
     readln;
end.

Но она все равно не работает...
Подскажите плиз что надо подправить и где??? А тоя уже почти с ума сошел, пытаясь отладить её((

М

1. При публикации программ используй теги CODE 2. Если хочешь теоретический ответ, то не приплетай конкретную задачу. Переношу в Задачи -- Лопарь

[Lapp]

У мну то в принципе с текстом то все норм...
...
А вот с чтением точки я что то уж точно как лубень поступил, просто зря я на ночь сел писать прогу

Не знаю, что ты называешь, нормально - и что ты называешь "текстом"? Файл формата бмп - это никак не текст!
Ты извини, но при взгляде на этот кусочек:

               For i  := 1 to n do
                   for j := 1 to m do
                      A[i,j]:= read(f,i,j);

- в голову приходят мысли только о человеке, который оооочень слабо знаком с программированием. Мало того, что read стоит в правой части - в нем еще и переменные цикла! Ну и, опять же - думать о бмп, что это просто набор точек - без заголовков, без палитр - это наивно..
Поэтому я просто не понимаю, что тебе посоветовать. Разве что то, что уже советовал. Научиться работать с файлами (не текстовыми) и ознакомиться с форматом бмп (см. ссылку выше). Может, еще разобраться с циклами..
На Форуме были темы про бмп, кажется. Можешь поискать. Но предыдущие советы это не отменяет...
Пиши по мере продвижения.