Ну вот один из возможных вариантов. Главные исправления:
1. Правильно сформулированы условия по х.
2. Убран входной файл - он тут явно "для мебели".
3. Поскольку использован файловый, а не экранный вывод, то и экранные команды тут абсолютно ни к чему. Поэтому убран модуль CRT, команды ClrScr и Readln в конце. Чего на пустой экран пялиться?
4. Переменная х должна иметь вещественный (real), а не целочисленный (integer) формат.
Остальное - по мелочи.
Код:
program dz5_1;
const
dx=0.1;
var
i:integer;
x,y:real;
f_out:text;
begin
assign(f_out,'C:\output.txt');
rewrite(f_out);
writeln(f_out,'funkcia idz 2 variant 12');
writeln(f_out,'______________________');
writeln(f_out,'| x | y |');
writeln(f_out,'______________________');
for i:=0 to Round(10/dx) do
begin
x:=-7+dx*i;
if x>2 then y:=2-x else
if x>0 then y:=sqrt(4-sqr(x)) else
if x>-2 then y:=2-sqrt(4-sqr(x+2)) else
if x>-6 then y:=(x+2)/4 else
y:=2;
writeln(f_out,'| ',x:8:2,'| ',y:8:2,'|');
end;
writeln(f_out,'______________________');
close(f_out);
end.