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

[KatruKot]

const maxn = 50;
type
TEmp = record
LastName: string;
wage: integer;
end;
var Emps: array [1..maxn] of TEmp;
i, n: integer;
begin
writeln('Количество рабочих в бригаде? ');
readln(n);
for i := 1 to n do
begin
writeln('Фамилия: ');
readln(Emps[i].LastName);
writeln('Зарплата: ');
readln(Emps[i].wage)
end;
for i := 1 to n do
begin
if (Emps[i].LastName[1] = 'А') or (Emps[i].LastName[1] = 'С') then
begin
writeln('Фамилия ',emps[i].LastName);
writeln('Зарплата ',emps[i].wage)
end;
end;
readln
end.

Вот этот вариант

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

Как бы его так переделать что бы через файл если это возможно??

[mss]

Этот вариант НЕ может быть рабочим, потому что он даже скомпилирован быть не может.

program Job;

uses
  Crt;

const
  MaxNameLen = 30;
type
  TEmp = packed record
    Name: String[MaxNameLen];
    wage: integer;
  end;
var
  F: File of TEmp;
  Emp: TEmp;
  i, n: integer;
begin
  ClrScr;
  Write('Количество рабочих в бригаде : ');
  Readln(n);
  Assign(F, 'emps.dat');
  Rewrite(F);
  for i := 1 to n do begin
    Write('Фамилия  : ');
    Readln(Emp.Name);
    Write('Зарплата : ');
    ReadLn(Emp.wage);
    Write(F, Emp);
  end;
  Close(F);
  Reset(F);
  ClrScr;
  while not Eof(F) do begin
    Read(F, Emp);
    if Emp.Name[1] in ['А', 'С'] then begin
      Write('Фамилия ', Emp.Name);
      WriteLn('Зарплата ', Emp.wage);
    end;
  end;
  Close(F);
  ReadKey;
end.

[KatruKot]

СПАСИБО, огромное!!!))) Я в Pascal ABC 3.0.1.35 писал и у меня мой вариат срабатывал...

[mss]

> в Pascal ABC 3.0.1.35 писал

В топку это дерьмо.

[Shift_sk]

Assign(F, st);

по мойму бред!