[Nevis]

Всем доброго времени суток.
Нужна помощь с массивами.
Задача:Дан массив А – массив обыкновенных дробей. Найти сумму всех дробей, результат представить в виде несократимой дроби. Вычислить среднее арифметическое всех дробей, результат представить в виде несократимой дроби.

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

var
     a:array [1..100] of integer;
     x,y,z,x1,y1,z1,x2,y2:integer;
begin
writeln('A=');
randomize;
x:=random(100);
y:=random(100);
x1:=random(100);
y1:=random(100);
writeln(x,'    ',y,'    ',z);
writeln('--- + --- =');
writeln(x1,'    ',y1,'    ',z1);
writeln;
end.

Мысль правильна? Или тут все бред?
Помогите, если не сложно. Массивы вообще не понятны.

[M.A.D.M.A.N.]

Тут все бред.

[Nevis]

Можете помочь?