лабы / лаб7 / lab7

program lab7;
uses sysutils;
const 
    cols = 5;
    need_col = 5;
type 
    arr_str = array[1..cols] of string;
var
    f: TextFile;
    fname: string;
    x: string;
    Code: integer;
    temp_v: longint;
    temp_arr: arr_str;
    temp_cost_str: string;
    all_sum: longint = 0;

function replaceStr(s,r,j:string):string;
var temp_pos: integer;
begin
    temp_pos := pos(r,s);
    delete(s,temp_pos,length(r));
    insert(j,s,temp_pos);

    replaceStr := s;
end;

function deleteSpaces(s:string):string;
var i: integer;
begin
    for i:=1 to Length(s) do
    begin
        if (s[i] = ' ') then s := replaceStr(s,' ','');
    end;

    deleteSpaces := s;
end;

function makeArrFromStr(s:string):arr_str;
var
    i: integer;
    ni: integer = 1;
    temp_s: string = '';
    result: arr_str;

begin
    for i:=1 to Length(s) do 
    begin
        if ((s[i] = '|') or (i = Length(s))) then 
        begin
            if (i = Length(s)) then temp_s := temp_s + s[Length(s)];
            result[ni] := temp_s;
            ni := ni + 1;
            temp_s := '';
        end
        else temp_s := temp_s + s[i];
    end;

    makeArrFromStr := result;
end;

begin
    Write('Введите название файла: '); ReadLn(fname);
    if (not FileExists(fname)) then 
    begin
        WriteLn('Такого файла не существует.');
        exit;
    end;
    assign(f,fname);
    reset(f);
    ReadLn(f,x);
    while (not eof(f)) do
    begin
        ReadLn(f,x);

        temp_arr := makeArrFromStr(x);

        temp_cost_str := replaceStr(temp_arr[need_col],'рублей','');

        temp_cost_str := deleteSpaces(temp_cost_str);

        val(temp_cost_str,temp_v,Code);
        if (Code <> 0) then WriteLn(Code);

        all_sum := all_sum + temp_v;
    end;
    WriteLn('суммарные затраты на приобретение: ', all_sum, ' рублей');
    close(f);
end.