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

[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. Если хочешь теоретический ответ, то не приплетай конкретную задачу. Переношу в Задачи -- Лопарь

[andriano]

Вот мой то вопрос как раз втом как считать?? Мне из БМПешника все что надо.

1. Считать заголовок.
2. Разобрать его, выполнить необходимые проверки.
3. Вычислить длину битмапа.
4. Выделить память.
5. Считать битмап.

[Гость]

1. Считать заголовок.
2. Разобрать его, выполнить необходимые проверки.
3. Вычислить длину битмапа.
4. Выделить память.
5. Считать битмап.

Просто прикол в том что я не наю какими функциями это осуществлять((