Циклы(паскаль)

[Freia]

Что неправильно в программе?Всё? Как исправить ошибки? Дано 100 вещественных чисел. Вычислить разницу между максимальным и минимальным из них.
Program Cikl;
var
ai, i, R: integer;
begin
writeln ('введите ai');
readln (i);
max :=a1;
min := a1;
For i:= 2 to 100 do
If ai> max then max := ai
else if ai< min then min :=ai
writeln('max := ', min := ', min);
R:= max-min
writeln ('R := ',R);
readln
end.

[challengerr]

1. Объявление массива
var
v:array[1..100]of integer;

2. Обращение к элементу массива
v[i]

var
v:array[1..100]of integer;
min,max,i,r: integer; 

for i:=1 to 100 do  begin
readln (v[i]);
end;

max:=v[1];
min:=v[1];

for i:=1 to 100 do  begin
if max<v[i] then begin
max:=v[i];
end;
if min>v[i] then begin
min:=v[i];
end;
end;

r:=max-min;

Если где-то ошибся, звиняйте. Я не пишу на паскале вообще.

[Lemo]

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var A:array [1..100] of integer;
 i:integer;
 min, max, LOL:real;
begin
 randomize;
 Writeln ('100 chisEL');
 readln;
 for i:=1 to 100 do begin
 A[i]:=random(100);
 writeLn (A[i]:2, ' ');
 end;
 readln;

 min:=1; max:=1;
 for i:=1 to 100 do begin
 if A[i]<min then min:=a[i];
 if A[i]>max then max:=a[i];
 end;
  LOL:=max-min;
 writeLn ('Min=' , min:3:0);
 writeLn ('Max=' , max:3:0);
 writeLn('ReSuLt', LOL:3:0);
 readln;
 end.

[Freia]

спасибо,но мне с массивами нельзя делать..(((

[Lemo]

тогда, сделай считание из файла!
ЗЫ:предупреждай, вначале, что нельзя использовать!

[challengerr]

в цикле считываешь число и на лету сравниваешь (без файла)

У тебя в цикле нет считывания числа.

Program Cikl;
var
ai, i, R: integer;
begin
writeln ('введите ai');
readln (i);
max :=i;
min := i;
For i:= 2 to 100 do 
// сюда надо добавить считывание числа
// типа readln (ai);
If ai> max then max := ai
else if ai< min then min :=ai
writeln('max := ', min := ', min);
R:= max-min
writeln ('R := ',R);
readln
end.

[Freia]

спасибо,вот так наверно можно =))