Составить блок-схему, написать программу на языке Pascal (массивы вводить с клавиатуры)

program Project1;
const
  maxsize1 = 8;
  maxsize2 = 5;
var
  s: array[1..maxsize1] of real;     {Переменная для хранения массива результатов вычислений}
  c: array[1..maxsize2] of real;     {Переменная для хранения массива данных}
  sum: real;                          {Переменная для хранения значения вычислений суммы}
  j,k: integer;                       {Вспомогательные переменные для организации работы циклов}
begin
  {c[1]:= -4.15;  c[2]:= 0.1; c[3]:= -2.5; c[4]:= 4.0; c[5]:= -6.0;}
 
  writeln('Введите значения массива C: ');
  for k:= 1 to maxsize2 do
    begin
      write('c[',k,']= ');
      readln(c[k]);             {Ввод значений элементов в массив}
    end;
  for j:= 1 to maxsize1 do
    begin
      sum:= 0; { Установка суммирующей переменной в ноль}
      for k:= 1 to maxsize2 do
        sum:= sum + (1 + c[k] + sqr(c[k]))/sqr(1 + c[k]);  {Вычисление суммы}
      s[j]:= sum + 5 + j;
    end;
  writeln('Результат вычислений: ');
  for j:= 1 to maxsize1 do
    writeln('j = ',j, '; S[j] = ',s[j]:0:4); {Вывод значения вычисления в консоль}
  Readln;
end.