Процедуры и Функции, Вычислить число сочетаний Опции

[Druid]

Помогите пожалуйста с задачей.Я никак не могу найти ошибки.
Вычислить число сочетаний ,где N, M - натур. числа, N M.

Var N, M: Byte; C: Longint; 
      Function Fact (K: Byte): Longint; 
Var F: Longint;  i:Byte;  
Begin
F:=1;
For i:=2 to K do F;
Fact:=F
End; 
Begin 
Repeat
Write('Введи N, M (N>=M):');
Readln(N,M)
Until N>=M;
C := Fact(N) Div (Fact(M)*Fact(N-M));
Writeln('Число сочетаний из ', N,' по ',M,' = ',C)
End.

Помогите с задачами пожалуйста.
3. Даны две матрицы из целых чисел А(4,5), В(5,4). Поменять местами максимальные элементы матриц, считая их единственными.

Сообщение отредактировано: Altair - 6.01.2006 21:27

[Druid]

Помогите с задачей:
Даны две матрицы из целых чисел А(4,5), В(5,4). Поменять местами максимальные элементы матриц, считая их единственными