Проверьте пожалуйста блок-схемы к задачам..

[nersafer]

Народ! помогите пожалуйста мне немножко..

Задали в универе несколько задачек, решить то их я решил, но вот составлением блок-схем сроду не занимался.. а без них не защитают..

проверьте плииз блок-схемы правильно ли я их составил:


1. Найти значение выражения 1*1+2*2+...+n*n.

Program Summa1;
Uses Crt;
Var
    n, s, i : integer;
Begin
  clrscr;
  write ('Vvedite celoe chislo: n = ');
  readln (n);
  s := 0;
  for i := 1 to n do
   s := s + i * i;
  writeln ('Summa = ', s);
  readln;
End.

2. Составить программу, удаляющую в файле текст после первой точки.

program z41;
uses crt;
var fl1:text;a:string;
    i,l,poz:longint;label m;
begin
  clrscr;
    assign(fl1,'input.txt');
    reset(fl1);
    readln(fl1,a);
    close(fl1);
    l:=length(a);
    rewrite(fl1);
    for i:=1 to l do 
      if a[i]='.' then
        begin
           poz:=i;
           goto m;
        end;
   m:for i:=1 to poz do write(fl1,a[i]);
   close(fl1);
end.

3. Дана матрица N*N. найти произведение элементов, расположенных на побочной диагонали и выше (ниже) её.

Program Summa1;
Uses Crt;
Var
  s: array [1..5,1..5] of integer;
  i,j, n, sum: integer;
Begin
    clrscr;
     randomize;
     n:=5;
     For I := 1 To N Do
         For J := 1 To N Do
             S[I, J] := Random(5)+1;
     Sum := 1;
     For I := 1 To N Do
         For J := 1 To N-I+1 Do
             Sum := Sum * S[I, J];
     For I := 1 To N Do
     Begin
         For J := 1 To N Do
             Write(S[I,J]:3);
         WriteLn;
     End;
     WriteLn;
     WriteLn('Proizvedenie elementov na pobochni diag i vyshe ee=',Sum);
     readln;
End.

проверьте плиз блок-схемы.. не охото на мелачах опозориться )