Выстроить формулировку задачи

Program Name;
  Const m=50;
  Type Mas = Array [1..m] of Real;
  Var A    : Mas;
      i, N : Byte;
      S    : Real;
BEGIN
 Repeat
   Write('Введите N = ');
   ReadLn(N);
  Until N <= 20;
 For i := 1 to N dо 
    begin
      Write('A [ ',i,' ] =');
      ReadLn(A[i])   
    end;
  S:= 0; 
  For i := 1 to N do S := S+A[i]; 
  WriteLn;
  WriteLn('Вставьте сюда правильный комментарий', S:0:2);
  ReadLn
END.

Program Name;
 Const m=80;  
 Var N, i, k : Integer;
         X, Y   : Array [1..m] of Real;
BEGIN
  Repeat
    Write('Введите N = ');
    ReadLn(N);
  Until N <= m;
  For i := 1 to N do
    begin
      Write('X[ ', i, ' ] = '); 
      ReadLn(X[i])
    end;
  k:=0;
  For i := 1 to N do
    If X[i]>0 then
      begin 
       k:=k+1; 
       Y[k]:=X[i]
      end;
  For i := 1 to N do
    If X[i]=0 then
      begin 
       k:=k+1; 
       Y[k]:=X[i]
      end;
  For i := 1 to N do
    If X[i]<0 then
      begin 
        k:=k+1;
       Y[k]:=X[i]
      end;
  Write('О т в е т : вставьте нужный текст');
  For i := 1 to N do Write(Y[i] : 0 : 2);
  WriteLn; 
  ReadLn
END.