Сформировать массив из 20 вещественных чисел и поменять местами 5 и 10 элемент. Помогите пожалуйста . Решите для старой версии

var a: array[1..20] of Real;i: Integer;beginfor i:=1 to 20 dobegina[i]:=random(20);writeln('Число: ',a[i]);end;a[5]:=a[10];a[10]:=a[5];for i:=1 to 20 do writeln(a[i]);end.