Найти и исправить ошибки в программе.

Program chisla; Var n1, n2 : longint;
k1, k2 : byte;
Function kol(x : longint): byte; var k: byte; begin k:=0;
While x<>0 do begin
Inc(k); x:=x div 10; end; kol:=k; end;
BEGIN
writeln(‘Введите два числа’); readln(n1, n2); k1:=kol(n1); k2:=kol(n2);
if k1=k2 Then writeln(‘одинаковое количество цифр’) else if k1>k2 Then Writeln(‘в первом числе цифр больше’)
else writeln(‘во втором числе цифр больше’)
END.​

1. Для перевода из десятичной системы счисления в двоичную делим исходное число нацело на 2 (показатель системы в которую переводим) до тех пор, пока частное не станет меньше 2 (показателя системы в которую переводим). Далее с последнего частного (это всегда будет 1, за исключением когда исходное число равно 0) выписываем все остатки.
387:2 = 193 (остаток 1)
193:2 = 96 (остаток 1)
96:2 = 48 (остаток 0)
48:2 = 24 (остаток 0)
24:2 = 12 (остаток 0)
12:2 = 6 (остаток 0)
6:2 = 3 (остаток 1)
3:2 = 1 (остаток 1) Деление закончили, т.к. частное меньше 2.
Начиная с последнего частного выписываем число - 111000011 (2)
387 (10) = 111000011 (2).

2. В данном алфавите у нас 64 символов, т.е. для кодировки данного алфавита приходится 2^6 =64 - 6 бит на 1 символ.
Количество символов 870.
Чтобы найти информационный объем сообщения (текста) I, нужно умножить количество символов (отсчетов) N на число бит на символ (отсчет) K: 
I=N*K = 870*6 = 5220 бит.
В 1 байте 8 бит ⇒    5220 / 8 = 652.5 байт.

3. Дано: 
K=1600*1024=2^14 пикселей; Количество пикселей считается из разрешающей дисплея - произведении пикселей по горизонтали на кол-во по вертикали.
I=24 бит - битовая глубина.
Vвп=2 Мб = 2^24 бит.
Решение:
Используем формулы 
V=K*i;      Объем видеопамяти одной страницы - это произведение количества пикселей на глубину цвета в битах .
V= 2^14*3*2^3=3*2^17
m= Vвп/V, где m – это количество страниц экрана
m= 2^24/3*2^17 = (1/3) * 2^7 ≈ 42,7 страниц

4. Для хранения информации о моно звуке длительностью t секунд, закодированном с частотой дискретизации f Гц и глубиной кодирования B бит требуется t*B*f бит памяти. Для стерео звука это значение умножается на 2 (2 канала).
Получаем:
I=t*B*f  ⇒ f= I/ (B*f)
Переводим в системные единицы:
1 мин = 60 секунд.
1,3 Мбайт= 1,3*2^23 бит

Получаем:
f=1.3*2^23 / (8*60) ≈2.7*2^20 Гц = 2831155,2 ГЦ = 2,8 МГц
Но если честно, для задач школьного уровня - слишком большая частота - проверьте данные.

Var a:array[1..100,1..100] of integer; i,j,n,m,max,min:integer; begin write ('Введите количество строк: '); read(n); writeln; write ('Введите количество элементов в строке: '); read(m); writeln; writeln('Введите массив: '); for i:=1 to n do begin for j:=1 to m do begin write(' a[',i,',',j,']='); read(a[i,j]); end; writeln; end; writeln; writeln('Исходный массив: '); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; writeln; writeln('Конечный массив: '); for i:=1 to n do begin min:=a[i,1]; max:=a[i,1]; for j:=2 to m do begin if (min>a[i,j]) then min:=a[i,j]; if (max