очередная просьба глупой девушки

[Ledy]

приветствую вас,великие умы современности...к моему позору я совсем не понимаю Паскаль(хотя были попытки). теперь только из-за двух несданных задач(остальные худо-бедно осилила), хотят выгнать из института(хотя я прилежный студент и других долгов не имею).я никак не могу их прокомментировать в силу слабости мысли в данной области. если можете, помогите(вас,наверно,заколебала уже эта фраза!!!). короче, 1).двумерный массив:вычислить сумму элементов выше главной диагонали 2). дана строка, содержащая ";".подсчитать колличество знаков до и после ";".
З.Ы. стыдно...но надеюсь вы хоть сразу в игнор не кинете))

[puporev]

№1.

uses crt;
var a:array[1..50,1..50]of integer;
    n,i,j,sum:integer;
begin
clrscr;
write(Vvedite razmer matricy n=');
readln(n);
randomize;
sum:=0;
for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(20);
          write(a[i,j]:4);
          if j>i then sum:=sum+a[i,j];
        end;
      writeln;
    end;
write('Sum=',sum);
readln
end.

№2.

uses crt;
var s:string;
    i:integer;
begin
clrscr;
write('Stroka: ');
readln(s);
writeln('Kol znakov do ; = ',pos(';',s)-1);
writeln('Kol znakov posle ; = ',length(s)-pos(';',s));
readln
end.