Developing.ru

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

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 + Zarplata;
If (Rabochie[1]= 'C') or (Rabochie[1]= 'А') then
begin
writeln (Rabochie,'-',Zarplata,'');
end;
end;
end;
begin
Writeln('Введите путь к файлу: ');
readln(s);
works(s);
readln;
end.