Перевод из турбо паскаля в абс

uses crt;
const n=10;
var x:array[1..n,1..n] of integer;
    i,j,a,b,c,ia,ja,ib,jb,ic,jc:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=random(50);
    write(x[i,j]:3);
   end;
  writeln;
 end;
writeln;
repeat
writeln('Введите 3 числа от 50 до 99');
readln(a,b,c);
until(a in [50..99])and(b in [50..99])and(c in [50..99]);
ia:=1+random(n);
ja:=ia;
ib:=2+random(n-1);
jb:=1+random(ib);
ic:=1+random(n-1);
jc:=ic+1+random(n-ic);
x[ia,ja]:=a;
x[ib,jb]:=b;
x[ic,jc]:=c;
writeln('Замена трех элемнтов:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if((i=ia)and(j=ja))or((i=ib)and(j=jb))or((i=ic)and(j=jc))
    then textcolor(12)else textcolor(7);
    write(x[i,j]:3);
   end;
  writeln;
 end;
textcolor(7);
readln;
end.