true;;; (f); not poisk then showmessage ('Записів зразка' + maska ​​+ 'не виявлено')
{якщо не знайдений не один елемент виводимо відповідне повідомлення}
elsei: = 0 to k-1 do {в осередки виводимо запису масиву а}. Lines.Add ('_____________________________________');. Lines.Add ('Номер місяця ....... .... '+ inttostr (a [i]. nommes));. Lines.Add (' Табельний номер ........ '+ inttostr (a [i]. tabnom));. Lines.Add ('Прізвище Ім'я (У% до 100) .... '+ inttostr (a [i]. Premij));. Lines.Add (' Утримано із зарплати ... '+ floattostr (a [i]. Udergano));. Lines . Add ('Сума премії ...........' + floattostr (a [i]. sumprem));. Lines.Add ('Сума до видачі .........' + floattostr (a [i]. sumkv));;;; radiobutton2.Checked then: = edit7.Text;: = 0;: = false; not eof (f) do {поки не кінець файлу}
begin (f, w); {читаємо з файлу в файлову змінну}
if pos (maska, w.podrazdelenie) = 1 then
begin [k]: = w; {записуємо в масив дані з w}
inc (k);: = true;;; (f); not poisk then showmessage ('Записів зразка' + maska ​​+ 'не виявлено')
{якщо не знайдений не один елемент виводимо відповідне повідомлення}
elsei: = 0 to k-1 do {в осередки виводимо запису масиву а}. Lines.Add ('_____________________________________');. Lines.Add ('Номер місяця ....... .... '+ inttostr (a [i]. nommes));. Lines.Add (' Табельний номер ........ '+ inttostr (a [i]. tabnom));. Lines.Add ('Прізвище Ім'я (У% до 100) .... '+ inttostr (a [i]. Premij));. Lines.Add (' Утримано із зарплати ... '+ floattostr (a [i]. Udergano));. Lines . Add ('Сума премії ...........' + floattostr (a [i]. sumprem));. Lines.Add ('Сума до видачі .........' + floattostr (a [i]. sumkv));;;; radiobutton3.Checked then: = edit7.Text;: = 0;: = false; not eof (f) do {поки не кінець файлу}
begin (f, w); {читаємо з файлу в файлову змінну}
if pos (maska, w.dolgnost) = 1 then
begin [k]: = w; {записуємо в масив дані з w}
inc (k);: = true;;; (f); not poisk then showmessage ('Записів зразка' + maska ​​+ 'не виявлено')
{якщо не знайдений не один елемент виводимо відповідне повідомлення}
elsei: = 0 to k-1 do {в осередки виводимо запису масиву а}. Lines.Add ('_____________________________________');. Lines.Add ('Номер місяця ....... .... '+ inttostr (a [i]. nommes));. Lines.Add (' Табельний номер ........ '+ inttostr (a [i]. tabnom));. Lines.Add ('Прізвище Ім'я (У% до 100) .... '+ inttostr (a [i]. Premij));. Lines.Add (' Утримано із зарплати ... '+ floattostr (a [i]. U...
