ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ

[юра 3]

Исправьте ошибки плиз

1. Преобразовать одномерный массив вещественных чисел, уменьшив каждый элемент массива на значение первого элемента.

var a:array [1..100] of real;
n,i:integer;
c:real;
begin
writeln ('n=');
read(n);
randomize;
for i:=1 to n do
a[i]:=random(20);
writeln(a[i]);
c:=a[1];
for i:=1 to n do
write(a[i],' ');
end.

[Sazary]

uses crt;
var a:array [1..100] of real;
n,i:integer;
c:real;
begin
clrscr;
write ('n=');
readln(n);
randomize;
for i:=1 to n do
 begin
 a[i]:=random(20);
 write(a[i]:6:1);
 end;

c:=a[1];
writeln;
writeln('--------');
write(a[1]:6:1);
for i:=2 to n do
  begin
  a[i] := a[i] - c;
  write(a[i]:6:1);
  end;
readln;
end.