Купил rtx3060, не выводит изображение через hdmi, что делать?

программа на Turbo pascal 7.1:

содержание progs.pas:

{$N+}{-директива для подключения 8087 препоцессора}
uses output1; {здесь подключаем модуль output1}

var p:double;

function F1(p:double):double;
begin
F1:=Sqr(p);
end;

procedure P1(var p:double);
begin
readln(p);
p:=F1(p);
end;

begin
write('Введите длину стороны квадрата = ');
P1(p);
P2(p);
end.

содержание output1.tpu:

{$N+}{-директива для подключения 8087 препоцессора}
unit output1;{здесь объявляем модуль output1}

interface

procedure P2(p:double);

implementation

procedure P2;
begin
writeln('Площадь квадрата = ',p:0:5);
end;

end.

На языке Паскаль:

const n=5; - объявляем константу  n, в которой будет храниться размер двумерного массива

var a:array [1..n,1..n] of integer;-объявляем массив

min:integer;-объявление переменной где будет храниться минимальный элемент

i,j:byte;-объявляем две вс переменные для цикла

begin - тело программы 

for i:=1 to n do - цикл по строкам

for j:=1 to n do begin - цикл по столбцам

readln(a[i,j]); - вводим элемент в массив

if (i=1) and (j=1) then min:=min:=a[i,j]; - здесь происходит присваивание первого элемента для сравнения с последующими 

if min>a[i,j] then min:=a[i,j]; - проверяем на условие минимума, если переменная min  больше элемента массива, то присваиваем ей значение массива

end;

writeln('Минимальный элемент двумерного массива=',min); - вывод минимального элемента

end.