Вывести значения массивов и количество элементов - Free Pascal

Формулировка задачи:

Ввести массивы a(8) и b(8). Получить массив С(8) , элементы которого формируются по правилу С_i = min (4*a_i, b_i^²) и подсчитать, сколько элементов C_i получило значение b_i². Вывести значения массивов A, B, C и полученное кол-во элементов. Заранее спасибо!!!

Да, и еще 1 обязательное условие : программа должна быть хорошо прокомментирована

Решение задачи: «Вывести значения массивов и количество элементов»

Листинг программы

Const n=8;
Type mas=array[1..n] of real;
Var A,B,C:mas;
    i,count:integer;
Procedure InPut(Var A:mas;ch:char);
Var i:integer;
Begin
    writeln('Введите ',n,' элементов массива ',ch);
    For i:=1 to n do
     read(A[i]);
End;
Procedure OutPut(A:mas;ch:char);
Var i:integer;
Begin
    writeln('Массив ',ch);
    For i:=1 to n do
     write(A[i]:8:2);
    writeln;
End;
Function Min(a,b:real):real;
Begin
    if a<b then Min:=a
     else Min:=b;
End;
Begin
    InPut(A,'A');
    InPut(B,'B');
    For i:=1 to n do
    Begin
      C[i]:=Min(4*A[i],sqr(B[i]));
      if C[i]=sqr(B[i]) then inc(count);
    End;
    OutPut(A,'A');
    OutPut(B,'B');
    OutPut(C,'C');
    writeln('Таких элементов = ',count);
    readln;
End.

Объяснение кода листинга программы

Объявлены константы и переменные: n = 8, mas = array[1..n] of real, A, B, C: mas, i, count: integer, а также процедуры InPut и OutPut и функция Min.
В процедуре InPut происходит вывод сообщения с просьбой ввести элементы массива A, затем происходит ввод элементов массива A.
В процедуре OutPut происходит вывод сообщения с названием массива A, затем происходит вывод элементов массива A с шагом 8 символов на строку.
В функции Min происходит сравнение двух чисел a и b, и если a меньше b, то возвращается a, иначе возвращается b.
В основной части программы происходит вызов процедур InPut(A,'A') и InPut(B,'B'), затем происходит итерация по элементам массива C с шагом 1, при этом каждый элемент C[i] вычисляется как Min(4*A[i],sqr(B[i])), а также подсчитывается количество элементов C, равных квадрату какого-либо элемента B.
После этого происходит вызов процедур OutPut(A,'A') и OutPut(B,'B'), затем выводится сообщение с количеством элементов массива C, равных квадрату какого-либо элемента B, и происходит чтение строки с помощью readln.