Составить программу ввода и вывода массива - Turbo Pascal

const
  csize=12;
 
type
  tarray=array [1..csize] of integer;
 
var
  a:tarray;
 
procedure CreateArray;
var
  i:integer;
begin
  for i:=1 to csize do
    read(a[i]);
  writeln;
end;
 
procedure PrintArray;
var
  i:integer;
begin
  for i:=1 to csize do
    write(a[i],' ');
 
end;
 
begin
  writeln('Введите элементы массива : ');
  CreateArray;
  writeln('Массив : ');
  PrintArray;
  readln;
  readln;
end.