Удалите из массива все элементы, содержащие в собственной записи цифру 5.

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=5;

Var
 ars:array[1..n] of string;
 i,j,k:integer;
begin
k:=n;
 for i:=1 to n do
 readln(ars[i]);
 for i:=1 to n do
  if pos('5',ars[i])lt;gt;0 then
   begin;
    for j:=i to n-1 do 
     ars[j]:=ars[j+1];
     dec(k);
   end;
 writeln('Final array:');
  for i:=1 to k do
  writeln(ars[i]);
end.

Пример ввода:
3434
5656
6767
5757
8989
Пример вывода:
Final array:
3434
6767
8989