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

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

[Гость]

Ты рисуешь только одну точку.
Видишь ли ты ее на экране?
Если нет, то не совпадает ли она по цвету с фоном?

В том то исуть что ничего я не рисую(( Я ее откомпилировать то толком не могу..

1. Почитай про файлы (есть тема в FAQ). Тебе нужно с самого начала разобраться с ними. Начни с создания своего файла и чтения. Простейшего, текстового. А потом перейдешь к более сложным..

У мну то в принципе с текстом то все норм...Просто первый раз вообще с БМПешками столкнулся, да и не так долго использую вообще Графический модуль...
А вот с чтением точки я что то уж точно как лубень поступил, просто зря я на ночь сел писать прогу
)))