Массив из файла

[sixS]

Подскажите как решить задачку. Есть текстовый файл (см. вложения) нужно ко всем элементам прибавить 1, поместить результат в массив и вывести на экран. Спасибо.

[rubius2008]

1. Связать файловую переменную (например, f) с файлом, открыть его для чтения.
2. Считать все в массив. Для массива 3х4 будет так:

for i:=1 to 3 do begin
   for j:= 1 to 4 do read(f,x[i,j]);
   readln(f);
 end;

После чего закрыть файл.
3. +1 и вывести на экран. Для массива 3х4 будет так:

for i:=1 to 3 do begin
   for j:= 1 to 4 do begin x[i,j]:=x[i,j]+1; write(x[i,j]:3); end;
   writeln;;
 end;