В линейном массиве целых чисел удалить элемент массива равный квадрату 5 элемента. Если таких элементов нет, то выдать сообщение элементы для удаления не найдено

Const

N = 10;

Var

A:array[1 ... N] of integer;

i, k:integer;

Begin

Randomize;

Write ('Исходный массив:') ;

For i: = 1 to N do

Begin

A[i]:=random (5) ;

Write (' ', A[i]) ;

End;

k:=0;

WriteLn;

For i: = 1 to N do

if i 5 then

if A[i] = A[5]*A[5] then k:=i;

if k = 0 then WriteLn ('Таких элементов не найдено')

else

Begin

Write ('Новый массив: ') ;

For i: = k to N-1 do

A[i]:=A[i+1];

For i: = 1 to N-1 do

Write (' ', A[i])

End;

ReadLn

End.