лабы / лаб7 / варианты / var2

program var2;
uses myLib;
const 
    fname = 'var2.txt';
    subject_cols = 5;
type
    arr_str = array[1..subject_cols] of string;
var
    disciplines: arr_str = ('физика', 'математика', 'информатика', 'АСВТ', 'русский язык');
    f: TextFile;
    x,fx: shortstring;
    x_index, i: byte;

function getIndex(s:string;a:arr_str):integer;
var 
    i: integer;
    count: integer = 1;
begin
    for i:=1 to length(a) do
    begin
        if (s = a[i]) then exit(count)
        else inc(count);
    end;
end;

begin
    Write('Введите название дисциплины: '); Read(x);

    x_index := getIndex(x,disciplines) + 2;

    assign(f,fname); reset(f); ReadLn(f,fx);

    while (not eof(f)) do
    begin
        ReadLn(f,fx);
    end;
end.