Задачи по двумерным массивам и строкам

[VANOLORD]

Помогите люди добрые, кому не трудно =)


1. Запросите у пользователя несколько символов и выведите на экран их коды. Проверьте, являются ли они буквами.

2.Написать программу, которая проверяет, является ли введённая с клавиатуры строка двоичным кодом.

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

4. В каждой строке, заданной матрицей A (N, M) вычислить сумму, количество и среднее арифметическое положительных чисел.

5. Методом вставки отсортировать массив по убыванию.

[casekey]

1:

var x: char;

begin
x:=0;
while(x<>27) do {выйдем только если нажмем enter}
    begin
    if (keypressed) then
        begin 
        x:=readkey;
        writeln('Символ ',x,' его ASCII код = ',chr(x));
        end;
    end;
end.

2:

function is_binary(a: string): boolean;
len,i: integer;
begin
len:=length(a);
for i:=1 to len do
    begin
    if ((a[i]<>'1') and (a[i]<>'0')) then
        begin
        is_binary:=false;
        exit;
        end;
    end;
is_binary:=true;
end;