Помогите,пожалуйста составить программы:
a) Заменить отрицательные элементы кортежа на 0.
б) Найти максимальный элемент матрицы.

1) Что за кортеж?
2) Поищи по форуму , точно было

1 тож точно было.
кортеж - последовательность. видимо, про массив речь.

Stellar_light, в чем помочь-то? ты что-то пробовала сама?

я слабо разбираюсь в програмировании, без понятия что и как делать

Для решения этих задач "разбираться в программировании" нужно настолько же, насколько разбираться в рыночной экономике для того, чтобы зайти в магазин и купить колбасы.. ))
Вот тебе полное решение второй задачи:

const
  n= 5;  {первый размер матрицы}
  m= ;   {тут чего-то не хватает, вставь}
  r= 100;  {диапазон значений матрицы}

var
  a: array[1..m,1..n]of integer;
  i,x,y: integer;  {забыта одна переменная..}

begin
  for i:=1 to m do for j:=1 to n do a[i,j]:=Random(2*r)-r;   {заполняем матрицу случайными числами}
  WriteLn('Matrix:');
  for i:=1 to m do begin      {распечатываем матрицу}
    for j:=1 to n Write(a[i]:5);   {построчно}
    WriteLn
  end;
  WriteL;   {пропущена буква..}
  x:=1;  {инициализация минимума}
  y:=0;  {неправильное значение, поменяй}
  for i:=1 to m do for j:=1 to n do if a[i,j]>a[x,y] then begin
    x:=i;  {обновление минимума}
    y:=;  {тут чего-то не хватает, вставь}
  end;
  WriteLn('Max elment of ',a[x,y]],' located at (',x,',',y,')');  {тут что-то лишнее, убери}
  WriteLn('I am very clever girlie!);   {подумай, обязательно ли это..}
  WriteLn('Strike Enter to exit.. ');
  ReadLn
end.

В этом коде есть несколько ошибок. Исправь их. Если будут трудности - спрашивай.
Успехов тебе, Звездный Свет