Ну и что здесь неправильного?

Program HTML;
var src : text;
var dest : text;
var stroka : string;
var posres: byte;
var x: integer;
Begin
assign(src, 'index1.htm');
reset(src);
assign(dest, 'newfile.htm');
rewrite(dest);
repeat
readln(src,stroka);
posres:=pos('code', stroka);
if (posres <> 0) then
Begin
x:=x+1;
writeln(x, ' Enter string');
readln(stroka);
writeln(dest,stroka);
writeln('Written!');
End
else
Begin
x:=x+1;
writeln (x,' There is no code in this string!');
writeln(dest,stroka);
End;
until (stroka = '');
writeln(dest,stroka);
readln;
End.

В итоге создается пустой файл...

А компилятор-то какой?
С чего начинается Х?

Выходной файл за тебя кто закрывать будет?
В конце программы вставь:
close(dest);

Не понял, для чего эта прога, но ИМХО здесь надо не...
repeat
////////
until (stroka='');
...а...
While not SeekEof(Src) do
Begin
///////
End;
Это первое, а второе - файлы закрыть (Close(Src) тоже лучше сделать)