Две строки в одну

[Sawok]

Доброе время суток.
Имеется такая программа, которая считывает текст и на выходе к каждой строчке добавляет 'Obrabotannij tekst=".

program Lab1;
uses CRT;
 
  var
InpFile,        
OutFile   :TEXT;      
 
 InputString, OutputString : string;
 OutfileName: string;
 CONST
 InpFileName='Lab1Inp.txt';
 label TESTING, ENDING;
 
 
begin
  Assign(InpFile, InpFileName );  
  Reset(InpFile);
  writeln(' nazvanie outputfaila');
  readln(OutFileName);
  assign(OutFile, OutFilename);   
  rewrite(OutFile);
TESTING:    CLRSCR;
  while (not EOF (InpFile)) do
  begin
   readln(InpFile, InputString);
   OutputString:=InputString;
   writeln( OutputString);
   OutputString:='Obrabotannij tekst="' + Outputstring + '"';
   writeln( OutputString);
   Writeln(OutFile, Outputstring);
  end;
  ENDING: close(InpFile); close(OutFile);
  end.

Надо, чтоб на выходе ничего не приписывалось, а что бы две строчки входящего текста объединялись в одну на выходе.
Как я понял, удаляем OutputString:='Obrabotannij tekst="' + Outputstring + '"';, прописываем считывание двух строк, а не одной, и если EOF (в случае не четного кол-ва строк), то строка2=" ".
Помогите пожалуйста правильно написать код.

[Alex11223]

А зачем в коде используются метки? Вроде goto не видно... Вместо комментариев что ли?оО
Кстати, используйте тег [CODE] (значок # ) для сохранения форматирования и подсветки кода в сообщении. Кнопка Правка снизу справа.

и если EOF

тогда eof надо проверять и перед чтением второй строки.

Помогите пожалуйста правильно написать код.

Сам пиши, не бойся. Вряд ли тебе как-то поможет в обучении написанный кем-то код.