Удалить все элементы после 3-его элемента массива

uses crt;
var
a:array[1..10] of integer;
i:byte;
begin
 
for i:=1 to 10 do
  begin
  writeln('введите ',i,' элемент массива');
  readln(a[i]);
  end;
clrscr;
writeln('Ваш массив');
 
for i:=1 to 10 do
write(a[i],' ');
 
writeln('Удалим все после 3');
 
for i:=4 to 10 do
  a[i]:=0;
  
writeln('Новый массив');  
for i:=1 to 10 do
write(a[i],' ');
 
end.

uses crt;
var x:array[1..10] of real;
    i:byte;
BEGIN
for i:=1 to 10 do
  begin
    write('Input X[',i,'] = ');
    readln(x[i]);
  end;
for i:=1 to 10 do
  write(x[i]:6:1);
writeln;
for i:=4 to 10 do
  x[i]:=0;
for i:=1 to 10 do
  write(x[i]:6:1);
writeln;
for i:=1 to 3 do
  write(x[i]:6:1);
writeln;
readln
END.

var
  a: array of integer;
 
begin
  SetLength(a, 10);
  writeln('Введите массив:');
  for var i := 0 to a.Length - 1 do
    read(a[i]);
  SetLength(a, 3);
  writeln('Обработанный массив:');
  for var i := 0 to a.Length - 1 do
    write(a[i], ' ');
end.