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

[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]

Что значит "внимательнее"? Я что, обязан попытаться запустить эту программу?

"Внимательнее" означает ровно то, что означает это слово, и ни о какой компиляции я не говорил. Если ты берешься помогать, то сначала вникни. И сделай это, пожалуйста, внимательно. Иначе, повторяю, ты можешь ввести человека в заблуждение. Я не верю, что ты (с твоей квалификацией) мог не заметить неправильное использование Read или, скажем, несоответствие параметров при вызове процедуры. Поэтому я и делаю вывод, что ты просто не посмотрел в это место. И именно об этом я и говорю, когда советую тебе быть внимательнее.

Я не понимаю, при чем здесь "выгода".

Выгода - она оч-чень разная бывает.. В данном же случае (согласен с volvo) просто поражает твоя способность не признавать ошибки, переворачивать все с ног на голову (я уже писал об этом) и любой ценой доказывать, что ты был прав (в том и выгода). Эта тема - просто еще один пример твоей демагогии. Ты и сам на нее тратишь время, и других отвлекаешь. Прошу тебя, будь немного терпимее к критике. Мне нравится твой уровень и желание помочь. Я не хочу, чтобы ты уходил. Сбавь свою заносчивость, пожалуйста.