Последняя процедура должна выводить наименьшую зарплату. Что-то никак не пойму где в ней что прописать, подскажите пожалуйста. Остальное всё работает корректно. Выкладываю всё что бы проще разобраться было
program RAbota;
const
N=3;
type
worker=record;
Name: String [30];
Salary:Integer;
Podrazdel: String [50];
Number: String [2];
end;
var
Org : array [1..N] of worker;
i,Min:Integer;
procedure Vvod (var S:Worker);
begin
writeln ('Введите ФИО');
readln (S.Name);
writeln ('№ подразделения');
readln (S.Podrazdel);
writeln ('Введите личный №');
readln (S.Number);
writeln ('Введите размер оклада');
readln (S.Salary);
end;
Procedure Vivod (S:Worker);
begin
writeln (S.Name, ':', S.Podrazdel, ':', S. Number, ':', S.Salary);
end;
procedure Abc(Org:Worker);
begin
Min:=Org.
for i:=1 to N do
if S.Salary<Min
then Min:=S.Salary;
writeln ('Минимальная зарплата =', Min);
end;
begin
For i:=1 to N do
Vvod (Org[i]);
for i:=1 to N do
vivod (Org[i]);
Abc (Worker[i])
end.