Developing.ru

В текстовом файле хранится список служащих. Для каждого служащего указаны фамилия и инициалы, название занимаемой должности, год поступления на работу и оклад.
Написать программу, выполняющую следующие действия:

-----корректировку или дополнение списка с клавиатуры;

А в чем проблема?
Например для дополнения достаточно прочитать новую строку с клавиатуры и дописать её в файл процедурой Append.

Пишу так, и чет не выходит:

var
spis_sl:file of string;
spis:String;
Begin
Assign(spis_sl,'...\spisok_sluzh.txt');
Rewrite(spis_sl);
Write(spis_sl,spis);
Close(spis_sl);

Rewrite в даном случае по моему не нужен

Во-первых: куда указывает данный путь ...\spisok_sluzh.txt?
Во-вторых, rewrite или reset всегда нужен, только добавлять данные в файл нужно не процедурой write, а процедурой Append.

var
spis_sl:file of string;
spis:String;
Begin
Assign(spis_sl,'...\spisok_sluzh.txt');
Reset(spis_sl);
Read(spis_sl.spis);

Даже не открывает его для чтения (не показывает информацию с текстового файла на экране)

Assign(spis_sl,'с:\1\spisok_sluzh.txt');

Как минимум, имя файла слишком длинное-нужно не более 8 символов.

var
spis_sl:file of string;
spis:String;
Begin
Assign(spis_sl,'с:\1\spisok.txt');
Reset(spis_sl);
Read(spis_sl.spis);

Писал и так. При етом менял и имя текстового файла. Программа запускается.Но отрабатывает слишком быстро. Смотрю по Alt+F5 ничего нет

Попробуйте написать так:
[syntax='Delphi']
var
F:text;
s:string;
begin
Assign(F,'C:\1\spisok.txt');
Reset(F);
Readln(F,S);
Close(F);
writeln(S);
readln;
end.
[/syntax]