Распечатать фамилии рабочих бригады, начинающихся с буквы А и С с указанием из месячной зарплаты.

[KatruKot]

program works;
Uses Crt;
Var
F: Text;
s: String;
procedure works(st: String);
var b, Zarplata, Rabochie: String;
i: Byte;
begin
i:=1;
Assign(F, st);
Reset(F);
while not EOF(F) do
readln (F,st);
begin
Zarplata:=' ';
Rabochie:=' ';
for i:= Length(b) downto Length(b) - 3 do
Zarplata:= b[i] + Zarplata;
If  (Rabochie[1]= 'C') or  (Rabochie[1]= 'А') then
begin
writeln (Rabochie,'-',Zarplata,'');
end;
end;
end;
begin
Writeln('Введите путь к файлу: ');
readln(s);
works(s);
readln;
end.

Помогите пожалуйста исправить код....


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[mss]

Ахинея какая-то..
Где описание формата файла ?

[KatruKot]

формат файла *.txt. программа спрашивает путь до файла, но не выводит ни фамилий не зарплаты...

[mss]

> формат файла *.txt

Аж слеза покатилась ..

Ты русский вообще понимаешь ?
ФОРМАТ СОДЕРЖИМОГО файла отличить от РАСШИРЕНИЯ ИМЕНИ файла в состоянии ?)

[KatruKot]

Прошу прощения=(, соделжимое такое "Имя рабочего - зарплата"

[mss]

Тогда это

for i:= Length(b) downto Length(b) - 3 do

что такое ?

Это ты так сведения о зарплате что ли выковырять оттуда хочешь ?

А с чего ты взял что зарплата составляет не более 999 тугриков ?

[KatruKot]

Ну да я так пытался задать сведения о зарплате...Сам понимаю что ляпнул эту строчку напрасно. какой тогда будет другой вариант?

[mss]

А почему не использовать типизированный файл - файл записей, каждая из которых содержит строковое поле "Имя" фиксированной длины и поле "Зарплата" вещ.типа ?
Тогда и выеживаться не придется..
В задании, что ты привел, использование именно текстового файла явно не оговаривается, а то что не запрещено, то как известно разрешено.

[KatruKot]

Да есть у меня рабочий вариант без использования .txt. Так преподу ж надо что бы именно был так...

[0479]

Так выложи этот вариант.Его ж легче подмодифицировать.Чем разбираться в исходных изваяниях))).