Delphi - lab7

program lab7;
type
   worker = record
     Name, Lastname: string;
     Bornin, Dep : integer;
     Salary: real;
     end;
var
  wks: array[1..10] of worker;
  i, j, n: integer;
  sum: real;
  temp: worker;
begin
  {input}
  writeln('input n: ');
  readln(n);

  For i := 1 to n do
  begin
    writeln('Input name: ');
    readln(wks[i].Name);
    writeln('Input lastname: ');
    readln(wks[i].Lastname);
    writeln('Input year of birth: ');
    readln(wks[i].Bornin);
    writeln('Input department: ');
    readln(wks[i].Dep);
    writeln('Input salary: ');
    readln(wks[i].Salary);
  end;

  sum := 0;
  For i := 1 to n do
   If wks[i].Dep = 3 then
     sum := sum + wks[i].Salary;

  {sort}
  For i := n-1 DownTo 1 do
      For j := 2 to n do
       If (wks[j-1].Dep > wks[j].Dep) then
         Begin
            temp := wks[j-1];
            wks[j-1] := wks[j];
            wks[j] := temp;
         End;

  writeln('+----------+------------+---------+-------+----------+');
  writeln('|   Name   |  Lastname  | Born in |  Dep  |  Salary  |');
  writeln('+----------+------------+---------+-------+----------+');
  For i := 1 to n do
     begin
          writeln('|',wks[i].Name:10,'|', wks[i].Lastname:12, '|', wks[i].Bornin:9, '|', wks[i].Dep:7, '|', wks[i].Salary:10  , '|');
          writeln('+----------+------------+---------+-------+----------+');
     end;
  writeln('Salary for department 3 = ', sum:10:2);
  readln;
end.