Помогите найти ошибку.

[Айдар]

Добрый день всем, решил сделать не большой обработчик базы, но возниклы трудности...

есть список url в файле (baza2.txt) такого типа:

http://www.forum.navrchol.sk/memberlist.php
http://www.dataweb.sk/SH/phpBB2/memb...2298b4894e2c31
http://www.ssaim.sk/forum/memberlist...cfe9dae7a04669
http://www.gebaek.sk/forum/memberlis...d8c25a702b3b3b

надо все превратить в такой тип:

<a href=http://www.forum.navrchol.sk/memberlist.php>http://www.forum.navrchol.sk/memberlist.php</a>

Вроде все набрасал, но есть 2 проблемы

program baza;
uses crt;
var
f:text;
i:integer;
fn,url,urlr,url2:string;
begin
clrscr;
fn:='baza2.txt';
assign (f,fn);
reset (f);
while not eof(f) do begin
readln(f,url);
i:=pos('?',url);
writeln (i);
writeln (url);
urlr:=copy (url,1,i-1);
writeln (urlr);
url2:='<a href='+urlr+'>'+urlr+'</a>';
writeln (url2);
end;
close(f);
readln;
end.

1. не могу сохранить результат.
2. проблема если в базе уже есть url ввида http://www.forum.navrchol.sk/memberlist.php, программа не переделывает ее в <a href=http://www.forum.navrchol.sk/memberlist.php>http://www.forum.navrchol.sk/memberlist.php</a>
Прошу помочь.

[Serge_Bliznykov]

так пойдёт?

program baza;
var
  f,f2:text;
  url : string;
  i : integer;
begin
  assign(f,'baza2.txt');
  reset(f);
  assign(f2,'result.htm');
  rewrite(f2);
  while not eof(f) do 
  begin
    readln(f,url);
    if Pos('?', url)>1 then url := copy(url,1,Pos('?', url)-1);
    writeLn(f2,'<a href='+url+'>'+url+'</a>');
  end;
  close(f);
  close(f2);
  writeLn('Done');
  readln;
end.

p.s. а почему на TurboPascal ?! DOS же давно мёртв!
Вы же всё равно под Windows запускать программу будете?!
Так возьмите же Delphi,
не хотите GUI, так сделайте консольное приложение - это родное Win32 приложение, это намного лучше (и возможностей гораздо больше!)