Требуется помощь в составлении блок-схемы к программам

[Lacrim]

Помогите пожалуйста составить блок-схемы к программам!!! Горю сессия ((((

Прога 1: Вводится число К,принимающее значение в диапозоне от 0 до 255. Используя лог-ие операции определить какие значения принимают i-й и j-й разряды (0<=i , 0< или = 7 ) числа К, вводимые пользователем.
Programm 1 ;
uses
Sisutils;
var
k,i,j:Byte;
temp: Byte;
begin
write ('input k [0...255]:');
ReadLn (k) ;
write ('input i [0...7]:');
ReadLn (i) ;
write ('input j [0...7]:');
ReadLn (j);
temp: = 128 shr i ;
t:= (k and temp) shr (7-i);
temp: = 128 shr j ;
j:= (k and temp) shr (7-j);
WriteLn (' Bit i = ' + IntoStr (i));
WriteLn (' Bit j = ' + IntoStr (j));
ReadLn ;
end.

Прога 2: Разработать алгоритм и программу вычисления числа сочетаний, используя формулу ...
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
n, m: Integer;
c: Single;

function Factorial(X: Integer): Integer;
var
i: Integer;
begin
Result := 1;
for i := 1 to X do Result := Result*i;
end;

begin
Write('Input n: ');
Readln(n);
Write('Input m: ');
Readln(m);

c := Factorial(n)/Factorial(m)*Factorial(n-m);
Write('c = ' + FloatToStr(c));
Readln;
end.

Прога 3: Разработать алгор и прогр.Дана матрица в размерностью n x m ... Определить максим и миним элементы матрицы и индексы столбцов и строк, на пересечении которых они находятся..
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
n, m: Integer;
minel, maxel, minx, miny, maxx, maxy: Integer;
A: Array of Array of Byte;
i, j: Integer;

begin
Write('Input n: ');
Readln(n);
Write('Input m: ');
Readln(m);

SetLength(A, m, n);
minel := 200;
maxel := 0;
minx := 0;
miny := 0;
maxx := 0;
maxy := 0;

Randomize;
Writeln;

for i := 0 to m-1 do
begin
for j := 0 to n-1 do
begin
A[i, j] := Random(200);
if A[i, j] < minel then
begin
minel := A[i, j];
minx := j;
miny := i;
end;
if A[i, j] > maxel then
begin
maxel := A[i, j];
maxx := j;
maxy := i;
end;
Write(Format('%4d', [A[i, j]]));
end;
Writeln;
end;

Writeln;
Writeln(Format('MinEl = %3d (%d:%d)', [minel, minx, miny]));
Writeln(Format('MaxEl = %3d (%d:%d)', [maxel, maxx, maxy]));
Readln;
end.

[Lacrim]

Народ помогите, очень нужно!!

[Lacrim]

С меня пиво или окажу небольшую мат.помощь!!!!

[Serge_Bliznykov]

поищите. здесь на форуме не раз выкладывали программку fceditor
в неё загоняешь текст программы.
получаешь блок-схему...