Дан массив все его элементы: а) увеличить в два раза; б) уменьшить на число а; в) разделить на первый элемент — Pascal(Паскаль)

uses crt;
var b,c: array[1..100] of real;
    a,n,i:integer;
begin
Clrscr;
Randomize;
writeln ('Введите размер массива:');
readln (n);
a:=2;
writeln('Исходный массив: ');
for i:=1 to n do c[i]:=random(100);
for i:=1 to n do writeln (c[i]:3:0);
writeln('Результат 1-го действия: ');
for i:=1 to n do b[i]:=c[i]*2;
for i:=1 to n do writeln (b[i]:3:0);
writeln('Результат 2-го действия: ');
for i:=1 to n do b[i]:=c[i]-a;
for i:=1 to n do writeln (b[i]:3:0);
writeln('Результат 3-го действия: ');
for i:=1 to n do b[i]:=c[i]/c[1];
for i:=1 to n do writeln (b[i]:3:0);
readln;
end.