Для каждой последовательности из трех чисел в файле нарисовать круг случайного цвета

uses graphABC;
const n=10;
var a: array [1..n,1..3] of integer;
i,j,x,y,r,x1,y1:integer;
f:text; s: string;
 
begin
   setwindowsize(800,600);
   assign(f,'out.txt');                //устанавливаем связь переменной с файлом
   rewrite(f);                         //открываем файл для записи
   Writeln('Генерируется массив ');
   For i:=1 to n do                     //цикл перебора элементов массива
       begin
           begin
           a[i,1]:=random(800);            //генерация случайных чисел
           write(f,a[i,1]:5);               //записать в файл
           a[i,2]:=random(600);            //генерация случайных чисел
           write(f,a[i,2]:5);              //записать в файл
           a[i,3]:=random(51);            //генерация случайных чисел
           write(f,a[i,3]:5);              //записать в файл
           end;
       writeln;
       end;
   Writeln('Массив сгененрирован и выведен в файл');
   close(f);                           //закрыто
   assign(f,'out.txt');                //устанавливаем связь переменной с файлом
   reset(f);                           //подготовить файл для чтения
 
x1:=20; y1:=600-(n*25);
SetFontSize(10);
SetFontStyle(fsItalic);
textout(x1,y1,' x   y    r');
y1:=y1+20;
   For i:=1 to n do                     //цикл перебора элементов массива
       begin
       x1:=20;
       read(f,a[i,1]);             //считать из файла в массив
       str(a[i,1],s);
       textout(x1,y1,s);
       x1:=x1+40;
       read(f,a[i,2]);
       str(a[i,2],s);
       textout(x1,y1,s);
       x1:=x1+40;
       read(f,a[i,3]);
       str(a[i,3],s);
       textout(x1,y1,s);
       circle(a[i,1],a[i,2],a[i,3]);    //нарисовать круг
       writeln;
       y1:=y1+20;
       end;
   close(f);                           //закрыто
end.