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

[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~~]

1.(104) Даны натуральные числа N и X. Задана случайная целочисленная матрица N*N . Получить последовательность а(1), а(2),....,а(N) из нулей и единиц,где а(i)=1 если все элементы i-й строки =< X, и а(i)=0 если все элементы i-ой строки >X.

Код

uses crt;
var
  m:array[1..100,1..100]of integer;
  var n,x:integer;
function a(n,x,i:integer):integer;
var j,ret:integer;
begin
  ret:=1;
  for j:=1 to n do
    if m[i,j]>x then ret:=0;
  a:=ret;
end;
procedure create_m(n:integer);
var i,j:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      m[i,j]:=random(100);
end;
procedure print_m(n:integer);
var i,j:integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          write(m[i,j],',');
        end;
      writeln;
    end;
end;
procedure print_stat(n,x:integer);
var i:integer;
begin
  for i:=1 to n do
    begin
      writeln('a(',i,')=',a(n,x,i));
    end;
end;
begin
  randomize;
  write('Input N (0<N<101):');
  readln(n);;
  write('Input X:');
  readln(x);
  create_m(n);
  print_m(n);
  print_stat(n,x);
  readkey;
end.