Массив - Turbo Pascal (33875)

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

Помогите пожалуйста. Дан массив с (n) . Переписать в мас¬сив х (n) все ненулевые элементы массива возведенные в квадрат. Затем упорядо¬чить методом «пузырька» по возрастанию новый массив. Найти общее количество одинаковых элементов в упорядоченном массиве.

Решение задачи: «Массив»

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

program mas;
uses crt;
 
var C:array[1..100] of integer;
     X:array[1..100] of integer
 
    i,j,t,k,n,buff:integer;
begin
    clrscr;
    write('vvedite kolichestvo elementov massiva C = ');
    readln(n);
    writeln('vvedite elementi massiva');
    for i:=1 to n do
    begin
       write('C[',i,']=');
       readln(C[i]);
    end;
    for i:=1 to n do
    begin
       if (C[i]<>0)then x[i]:=sqr(C[i]);
    end;
    for i:=1 to n do
    begin
       if (X[i]>X[i+1]) then
       begin
            t:=X[i];
            X[i]:=X[i+1];
            X[i]:=t;
       end;
    for i:=1 to n do
    begin
       write(x[i]);
    end;
readln;
end.

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

Создается программа mas, которая использует библиотеку crt.
Объявляются переменные: C, X, i, j, t, k, n, buff - все они являются массивами целых чисел.
Выводится сообщение для ввода количества элементов в массиве C.
Выводится сообщение для ввода элементов массива C.
Запускается цикл for для каждого элемента массива C от 1 до n.
Внутри цикла выводится сообщение C[, i, '] =`, после чего считывается элемент массива C[i].
Если считанный элемент не равен нулю, то вычисляется квадрат этого элемента и присваивается переменной X[i].
Если X[i] больше X[i+1], то происходит обмен элементов X[i] и X[i+1], и значение X[i] присваивается обратно в X[i].
После завершения цикла for выводится массив X.
Программа завершается командой readln.