Программа  нахождения  массива Z  как поэлементной суммы элементов массивов X и Y — Pascal(Паскаль)

Program Pr19 (Input, Output); 
Var 
X, Y: Array [1..20] Of Real; 
Z : Array [1..20] Of Real; 
N : Integer;
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Нахождения суммы двух массивов.');
Write ('Введите размерность исходных массивов:N = '); 
ReadLn (N); 
WriteLn ('Введите массив Х:'); 
For i := 1 To N Do
Begin
Write ('X[', i, '] = '); 
ReadLn (X [i] ); 
End;
WriteLn ('Введите массив Y:'); 
For i := 1 To N Do
Begin
Write ('Y[', i, '] = ');
ReadLn (Y [i] ); 
End;
 
For i := 1 To N Do
Z [i] := X [i] + Y [i]; 
 
WriteLn ('Массив результатов:');
For i := 1 To N Do
Write (Z [i] : 8: 1); 
 
ReadLn;
End.