лабы / лаб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.