ПАСКАЛЬ!! Опции

[Cheeees]

Помогите пожалуйста с информатикой! нужно к четвергу,к зачету сдать проги.Они в принципе не сложные,но их очень много, а я паскаль вообще не знаю,и сама все сделать не могу. Если есть время то напишите пожалуйста эти проги:
1.(104) Даны натуральные числа N и X. Задана случайная целочисленная матрица N*N . Получить последовательность а(1), а(2),....,а(N) из нулей и единиц,где а(i)=1 если все элементы i-й строки =< X, и а(i)=0 если все элементы i-ой строки >X.
2.(74) Написать программу , которая позволяла бы выводить на экран текст и обрабатывать нажатие клавиши Delete,то есть затирать символы в текущем положении курсора. Сделать возможным перемещение курсора стрелками по экрану.
3.(81) Написать программу,которая позволяет определять код любых клавиш,в том числе системных, и вывод их кода на экран.Выход осуществляется с помощью цифры "0".
4.(62)Найти все делители заданного натурального числа . Реализовать функцию для проверки, является ди данное число делителем другого.
5.(66) Дана квадратная матрица N*N , элементами которой являются целые числа. Определить строку матрицы,имеющую наибольшее количество четных элементов. Написать функцию нахождения количества четных элементов в строке.

[~~HellHounD~~]

2.(74) Написать программу , которая позволяла бы выводить на экран текст и обрабатывать нажатие клавиши Delete,то есть затирать символы в текущем положении курсора. Сделать возможным перемещение курсора стрелками по экрану.

Код

uses crt;
var
  k1,k2:char;
  x,y:integer;
begin
  clrscr;
  x:=1;
  y:=1;
  gotoxy(x,y);
  repeat
    k1:=readkey;
    if k1=#0 then
      begin
        k2:=readkey;
        case k2 of
        #72:begin
              dec(y);
              if y=0 then y:=24;
              gotoxy(x,y);
            end;
        #75:begin
              dec(x);
              if x=0 then
                begin
                  x:=80;
                  dec(y);
                  if y=0 then y:=24;
                end;
              gotoxy(x,y);
            end;
        #77:begin
              inc(x);
              if x=80 then
                begin
                  x:=1;
                  inc(y);
                  if y=25 then y:=1;
                end;
              gotoxy(x,y);
            end;
        #80:begin
              inc(y);
              if y=25 then y:=1;
              gotoxy(x,y);
            end;
        #83:begin
              write(' ');
              gotoxy(x,y);
            end;
        end;
      end else
      begin
        if (ord(k1)>31)then
          begin
            write(k1);
            inc(x);
            if x>80 then
              begin
                x:=x-80;
                inc(y);
                if y=25 then
                  begin
                    y:=1;
                  end;
              end;
          end;
        case k1 of
          #13:begin
                x:=1;
                inc(y);
                if y=25 then
                  begin
                    y:=1;
                  end;
              end;
          #8:begin
               dec(x);
               if x=0 then
                 begin
                   x:=80;
                   dec(y);
                   if y=0 then y:=24;
                 end;
               gotoxy(x,y);
               write(' ');
             end;
        end;
        gotoxy(x,y);
      end;
  until k1=#27;
end.

Остальное будет после 22:00.