Помогите с массивом

[Кронос]

Ребята помогите решить задачку...

Создав массив:

var karta array [1..100,1..60] of integer;

я должен заполнить его из текстового файла.

[Carbon]

Во-первых: var karta : array [1..100,1..60] of integer;
Во-вторых:

var karta : array [1..100,1..60] of integer;
i,j:integer;
f:textfile;

begin
assignfile(f,'somefile.txt');
reset(f);
for i:=1 to 100 do
for j:=1 to 60 do
read(f,karta[i,j]);
closefile(f)
end.

[Кронос]

А как усовершенствовать код, чтобы можно было разные текстовые файлы подключать? Извините за настырность

[Stilet]

assignfile(f,<Имя Файла>); Там прописывай программно нужное тебе имя и все.

[Кронос]

И еще, ребята. Как присвоить массиву значение рисунка.

[Carbon]

Чаво-й????