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

uses graphABC,crt;
const n=10;
var a: array [1..n,1..3] of integer;
i,j,x,y,r:integer;
f:text;
 
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);                           //подготовить файл для чтения
 
writeln(x:5,y:5,r:5);                  //вывести на экран
   For i:=1 to n do                     //цикл перебора элементов массива
       begin
       read(f,a[i,1]);                  //считать из файла в массив
       write(a[i,1]:5);                 //вывести на экран
       read(f,a[i,2]);
       write(a[i,2]:5);
       read(f,a[i,3]);
       write(a[i,3]:5);
       circle(a[i,1],a[i,2],a[i,3]);    //нарисовать круг
       writeln;
       end;
   close(f);                           //закрыто
end.

writeln('x':5,'y':5,'r':5);