лабы / лаб7 / lab7_1

program lab7_1;
uses sysutils;
const cols = 5;
type arr_str = array[1..cols] of string;
var
f: TextFile;
fname, cmd: shortstring;
headers: arr_str = ('инвентарный номер', 'порядковый номер', 'наименование оборудования', 'дата приобретения', 'стоимость');
i: integer;

procedure checkHeaders();
var x: string;
begin
reset(f); ReadLn(f,x);
if (length(x) = 0) then
begin
rewrite(f);
for i:=1 to cols do
begin
Write(f, headers[i]);
if (i <> cols) then Write(f, ' | ')
end;
WriteLn(f, '');
end;
end;

function getSpaces(x,s:string):string;
begin
getSpaces := StringOfChar(' ', (length(s) div 2) - (length(x) div 2));
end;

function getInfo():string;
var
x: string = '';
temp_x: string;
begin
Write('Введите инвентарный номер: '); ReadLn(temp_x); x := x + temp_x + getSpaces(temp_x, headers[1]) +' | ';
Write('Введите порядковый номер: '); ReadLn(temp_x); x := x + temp_x + getSpaces(temp_x, headers[2]) +' | ';
Write('Введите наименование оборудования: '); ReadLn(temp_x); x := x + temp_x + getSpaces(temp_x, headers[3]) +' | ';
Write('Введите дату приобретения (формат: дд.мм.гггг): '); ReadLn(temp_x); x := x + temp_x + getSpaces(temp_x, headers[4]) +' | ';
Write('Введите стоимость: '); ReadLn(temp_x); x := x + temp_x + ' рублей';

getInfo := x;
end;

procedure allRecordsOutput();
var temp_x: string;
begin
reset(f);

while (not eof(f)) do
begin
ReadLn(f,temp_x);
WriteLn(temp_x);
end;

WriteLn('');
append(f);
end;

begin
Write('Введите название файла: '); ReadLn(fname);
if (not FileExists(fname)) then FileCreate(fname);

assign(f,fname);

checkHeaders();
append(f);

while (true) do
begin
WriteLn('1 - добавить запись');
WriteLn('2 - показать записи');
WriteLn('Enter - выйти');
Write('>> '); ReadLn(cmd);
if (cmd = '1') then WriteLn(f,getInfo())
else if (cmd = '2') then allRecordsOutput()
else if (cmd = '') then break
else WriteLn('неправильная команда');
end;

close(f);
end.