Как вывести текст на textbox в паскале ?

12 3 4 5 6 7 program proba; uses crt, graph; var begin write('hello'); readln; end.при alt+f5 выводит черный экран, и ждет нажатия любой клавиши. как будто readln работает а writeln нет. сначало пробовала tp7, потом попробовала bp7, ситуация и там и там одинаковая. раньше, где-то пол года назад все работало. а сейчас просто черный экран. и программы написанные раньше также   не работают, черный экран и все. может кто сталкивался с подобным. на компе также установлен, delphi3, и delphi7. только в университет работу нужно сдавать именно в паскале.

// pascalabc.net 3.0, сборка 1088 begin   var n: =readlnstring('введите число: ');   n: =n.where(x-> x in ['0'..'9']).joinintostring('');   writeln('принятое число: ',n);   var a: =readlnchar('введите искомую цифру: ');   writeln('количество цифр в числе равно ',n.length);   if n[1]=n[n.length] then writeln('первая цифра равна последней')   else writeln('первая цифра не равна последней');   if pos(a,n)> 0 then writeln('цифра ',a,' входит в число')   else writeln('цифра ',a,' не входит в число') end. тестовое решение: введите число: тут спрятано 456. по частям 764 наше 03число принятое число: 45676403 введите искомую цифру: 0 количество цифр в числе равно 8 первая цифра не равна последней цифра 0 входит в число "школьный вариант" // pascalabc.net 3.0, сборка 1088 var   n: longint;   i,k: integer;   sn: string;   a: char; begin   write('введите число: '); readln(n);   str(n,sn);   write('введите искомую цифру: '); readln(a);   k: =length(sn);   writeln('количество цифр в числе равно ',k);   if sn[1]=sn[k] then writeln('первая цифра равна последней')   else writeln('первая цифра не равна последней');   if pos(a,sn)> 0 then writeln('цифра ',a,' входит в число')   else writeln('цифра ',a,' не входит в число') end. тестовое решение: введите число: 3476573 введите искомую цифру: 7 количество цифр в числе равно 7 первая цифра равна последней цифра 7 входит в число

// pascalabc.net 3.0, сборка 1088 const   nn=100; var   a: array[1..nn] of real;   i,n: integer; begin   write('количество элементов в массиве: '); read(n);   for i: =1 to n do begin       if odd(i) then a[i]: =sqrt(i)       else a[i]: =sqr(i);       write(a[i]: 0: 4,' ')       end;   writeln end. тестовое решение: количество элементов в массиве: 12 1.0000 4.0000 1.7321 16.0000 2.2361 36.0000 2.6458 64.0000 3.0000 100.0000 3.3166 144.0000