Написать программу, которая...

Написать программу, которая в одномерном массиве, заданным вводом данных с клавиатуры заменяет все числа в массиве заданнымчислом

 

Program pr;
uses crt;

Var a:array[1..10] of integer;
i,n:integer;

Begin
   Writeln('Vvedite massiv');
  
   for i:=1 to 10 do
   readln(a);
  
   Writeln('Vvedite chislo');
    readln(n);
   for i:=1 to 10 do
   Begin
   a:=n;
   Writeln(a);
    end;
   
    readln;
    end.