Помогите написать блок-схему для курсовой
 

Добрый день, прошу помочь скоро сдача курсовой, а я никак не могу осилить блок схему к этой программе...
Помогите пожалуйста!




Program King;
Const Size=10;
Var A:Array[1..Size+1,0..Size] of Integer;
i,j,n,m:Byte;
Begin
Assign(Input, ‘Input.txt’);
Reset(Input);
Readln(n,m);
for i:=1 to n do
for j:=1 to m do
A[I,j]:=-1;
Repeat
Readln(I,j);
A[I,j]:=0;
Until EOF;
A[n,1]:=1;
For i:=n downto 1 do
For j:=1 to m do
If A[i,j]=-1
Then A[I,j]:=A[i+1,j]+A[I,j-1]+A[i+1,j-1];
Assign(Output, ‘Output.txt’);
Rewrite(Output);
Writeln(A[1,m]_;
Close(Input);
Close(Output);
End.

С блок-схемой помочь, увы, не могу - не занимаюсь этим, а вот что касается того, что Вы именуете "программой"... Ужас! Едва ли не в каждой строке ошибка. В общем, бессмысленный набор букв это, а не программа.

ну так исправте ошибки..пожалуйста...очень прошу..

Без проблем, но только не прежде, чем Вы огласите формулировку задания. Потому как по этой недоделке разбираться, "что имел в виду автор" - увольте!

Вот задача:

КОРОЛЬ
В левом нижнем углу шахматной доски mxn стоит одинокий король. Некоторые ячейки доски запрещены для посещения королем. Король имеет возможность ходить или вправо или вверх (или вправо-вверх) на одну ячейку. Найти количество путей короля в правый верхний угол доски.

Ого, ничего себе! Я-то думал, там что-нибудь типа "заполнить матрицу...", а это... Задачка олимпиадного уровня. Нет, можно, конечно, помозговать, но требуются уточнения.
1. Шахматная доска что, нестандартная? Не 8х8? В таком случае, надо указать пределы чисел m и n.
2. Действительно ли требуется найти полное количество путей, т.е. перебрать все варианты? Но их безумно много! Ну то есть если конечно доска большая, а не, скажем, 3х2.
3. Как задаются "запретные" клетки? Сколько их?
4. В программе я вижу файлы ввода-вывода. Каков их смысл? Что должно в них быть?
5. Как вообще должен быть представлен результат работы программы? Только количество путей или и сами пути? В каком виде?
6. Какой Паскаль? Сразу предупреждаю, что если АВС, то и смотреть в ту сторону не буду.

Вот, посмотрите, здесь на 37 странице начало и дальше всё написано.
Нужно зделать у Free Pascal.

вот документ, и в нём всё есть.

Драть вас, студентов, некому. Ремнем. Ну неужели вы не понимаете, что если сразу выложите ясное и полное задание, то будет легче и нам, и вам? И почему мы должны это из вас клещами тянуть?
Теперь об ошибках. Ну ладно описки типа Writeln(A[1,m]_; - подчерк вместо закрывающей скобки и т.п., но самое главное - Вы, к сожалению, совсем не знаете, как работать с файлами. Запомните:
1. Файловую переменную необходимо задать, т.е. в разделе Var должно стоять что-то вроде
f:Text;
или
Xxx: file of Integer;
2. При записи в файл и чтении из файла в параметрах команды должно стоять имя файловой переменной, например
readln(f,a[i,j]);
write(Xxx,D);
и т.п.
3. При использовании функции EoF (End of File) необходимо опять же указывать имя файловой переменной, т.е.
EoF(f); или EoF(Xxx);
4. При написании имени файла в параметрах команды Assign использовать ТОЛЬКО апостроф (') - который в русифицированной клавиатуре там же, где буква "э". Использование каких-либо других значков НЕ ДОПУСКАЕТСЯ.
Ну и вот исправленная программа:
Здесь для украшательства добавлен вывод на экран матрицы до и после преобразования. Если не нужно - можно эти фрагменты (они отделены пустыми строками) удалить.
Ну а что касается блок-схемы - тут, как уже говорил, не компетентен. Может быть Анджела (11Angelav) поможет? Она у нас виртуоз блок-схем.

Спасибо огромное вам.
Ок, оброщусь к ней.