Вариант 18 задание 3

В текстовом файле содержится последовательность действительных чисел. Из заданной числовой последовательности получить последовательность логических констант со значениями True для положительных и False для отрицательных чисел. Полученную последовательность записать в результирующий файл. Имена исходного и результирующего файлов вводятся с клавиатуры.

//Вот тут начало программы.

program Prog3;

{$APPTYPE CONSOLE}
var
FileForRead: String;
FileForWrite: String;
TextFile1:Text;
TextFile2:Text;
n:Real;
BoolForWrite:Boolean;

begin
Writeln('Input file for reading ');
Readln(FileForRead);
Writeln('Input file for writing ');
Readln(FileForWrite);
Assign(TextFile1, FileForRead);
Assign(TextFile2, FileForWrite);

Reset(TextFile1);
Writeln('Reading from file ',FileForRead, ' ...');
While not EOF (TextFile1) do
Begin

Read(TextFile1, n);
Write(n:3:2, ' ');

if n<0 then BoolForWrite:=False
else BoolForWrite:=True;

Append (TextFile2);
Write ( TextFile2,' ', BoolForWrite );

end;
Writeln;
Writeln('Convert...');
Writeln('Convert complete.');
Writeln('Writing to file ',FileForWrite, ' ...');
Writeln('Writing complete.');
close(TextFile1);
close(TextFile2);
Writeln;
Writeln ('Press ENTER for EXIT');
Readln;
end.

//Вот тут конец программы.