pomogite reshit' 2 zadachi na PASCAL'E POZHALUISTA!

[alenchi]

1.Посчитать количество букв, которые останутся на своих местах в данной строке, если её перевернуть.

2.Дана квадратная матрица порядка M. Обнулить элементы матрицы, лежащие выше побочной диагонали.
Для отладки программы элементы матрицы сформировать с помощью генератора случайных чисел.

надеюсь, кто-нибудь откликнеться! очень нужна Ваша помощь!

[Sciv]

1)

var i,l: integer;
    s: string;
    col: integer;
begin
  col:=0;
  ReadLn(s);
  l:=length(s)
  for i:=1 to l do
    if s[i]=s[l-i+1] then inc(col);
  writeLn(col);
  readLn;
end.

2)

const m=5;
var a: array [1..m] of integer;
    i,j: integer;

begin
  Randomize;
  For i:=1 to m do begin
    For j:=1 to m do begin
      a[i,j]:=random(20)-15;
      Write(a[i,j],' ');
    end;
    WriteLn;
  end;
  For i:=1 to m-1 do 
    For j:=1 to m-i do a[i,j]:=0;
  For i:=1 to m do begin
    For j:=1 to m do
      Write(a[i,j],' ');
    WriteLn;
  end;
  readLn;
end.