Пользователь работы с каталогом. D:\ПРОГРАММЫ\ ИГРЫ\ КВЕСТЫ Сначала он поднялся на один уровень вверх , затем спустился в каталог СТРАТЕГИИ , после

var Rand: array[1..20] of integer;
I,X,NumberX:integer,
begin
Randomize;
writeln('Masiv slychainix chisel')
for I:=1 to 20 do
begin
Rand[I]:random(50);
write(Rand[I]:4)
end;
writeln;
write('Vvedite X:'));
readln(X);
NumberX:=0;
for I:=1 to 20 do
if Rand(I)=X
then NumberX:=NumberX+1;
if NumberX=0
then writeln('V masice net chisla ',X)
else writeln('Chislo ',X,'v masive prisytsvyet ',NumberX,'paz')
end.

Это программа из учебника, но она не работает на Pascalе ABC исправте её так что бы работала.

экран.

что не смог найти ошибку (см. вложение,1-2). Восстановление системы пробовал, сказал, что все файлы на месте, только не захотел менять один файл - см. в вложениях (3 изображение). Помогите поподробнее плиз.
З.Ы.возможно проблема в системном файле?
З.Ы.Ы пишу с планшета

раз поднялся на один уровень вверх и после этого спустился в каталог Экзамен. Запишите полный путь каталога, в котором оказался пользователь.1) C:\Физика. 2)C:\Экзамен. 3) C:\Физика\Экзамен. 4) C:\Физика\Задачи\Экзамен

Вторая задача:

Пользователь работал с каким-то каталогом. Сначала он перешел в какой-то подкаталог текущего каталога, затем еще раз перешел в какой-то подкаталог текущего каталога. В результате пользователь оказался в каталоге C:\Адреса\Личные\Семья. Определите полное имя каталога, в котором пользователь находился первоначально.1) C:\ 2) C:\Адреса 3) C:\Адреса\Личные 4) C:\Адреса\Личные\Семья

олный путь к каталогу ,в котором оказался пользователь?

Теплота, затем вновь поднялся на один уровень вверх и после спустился в каталог Электродинамика.
Запишите полный путь каталога, в котором оказался пользователь.

лся в каталогФАРАОН. Каков полный путь к каталогу, в котором оказал-ся пользователь?