program __test;
uses crt;
begin
clrscr;
writeln('str1');
writeln('press any key');
readkey;
gotoxy(1,2);
writeln('text is overwritten!');
readkey;
end.
Консоль
WriteLn;
WriteLn;
А мне нужно на верх перейти и написать чтонибуть.
gotoxy почему то не работает