Запись и чтение файлов

[Vladya]

Всем привет! Сразу прошу извинить за тупые вопросы, но все же:
есть два файла в одном хранятся входящие данные в другом исходящие,
файл с входящими данными выглядит так:

10 20
reset

в зависимости от того что будет написано во второй строке (reset) надо выбрать действие а результат записать в файл с исходящими данными.
Моя проблема в том что если написать число, причем в первую строчку, вместо слова то все работает а если стоит слово но ничего прога не делает.
Вот небольшой пример как я делаю:

program Project2;
{$APPTYPE CONSOLE}

uses
  SysUtils;
Var
  a,b: integer;
  r: string;
begin
  Assign(Input, 'in.txt');
  Reset(Input);
  Assign(Output, 'ou.txt');
  Rewrite(Output);
  Readln(a,b,r);
  Close(Input);
if r='reset' then Write(a*b);
  Close(Output);
writeln('peremennaya r = ', r);
Readln;
end.

И еще одно: почему после закрытия файлов пользователю не выводится сообщение а просто сразу все закрывается?

[Vladya]

с первым вопросом разобрался просто вместо

Readln(a,b,r);

написал следующее:

while not Eof(Input) do
  Begin
    Readln(a,b);
    Read(r);
  End;

Второй вопрос все еще не решен, даже если вместо Close написать CloseFile то все равно все что надо показать пользователю оно записывает в файл

[Serge_Bliznykov]

Второй вопрос все еще не решен, даже если вместо Close написать CloseFile то все равно все что надо показать пользователю оно записывает в файл

так не трогайте стандартный файл вывода (output)

заведите файловую переменную, свяжите её с нужным файлом на диске и выводите.

пример.

rogram Project2;
{$APPTYPE CONSOLE}

uses
  SysUtils;
Var
  a,b: integer;
  r: string;
  fileOut : TextFile;
begin
...
  AssignFile(fileOut, 'ou.txt');
  Rewrite(fileOut);
 
  WriteLn(fileOut, 'Текст');  {этот Текст будет выведен в файл ou.txt}

  WriteLn('User is so smart! ')  {этот текст будет выведен на стандратное устройство вывод == на консоль == на экран}

  CloseFile(fileOut)

идея понятна, надеюсь?

с первым вопросом разобрался просто вместо

кстати. Вы не очень корректно разобрались с первым вопросом.
Лучше написать так.
вместо:

Readln(a,b,r);

напишите

Readln(a,b);
if eof(Input) 
  then r := ''
  else Readln(r);

[Vladya]

Сообщение от Serge_Bliznykov

идея понятна, надеюсь?

Само собою!!! Спасибо за помощь!