pascal Данные в виде месячной заработной платы рабочих со специальностями различных категорий занести в одномерный массив строк

[AndrotoH]

Написать программу, которая выполняет следующие финансово-экономические расчеты. Данные в виде месячной заработной платы рабочих со специальностями различных категорий занести в одномерный массив строк, каждая из которых (строка) содержит фамилию, категорию, месячный заработок, номер цеха. Вычислить общую сумму выплат за месяц по всем категориям, по категориям отдельно, процент по категориям от общей суммы, среднюю месячную заработную плату по категориям.

[AndrotoH]

const n=2;
var
s:array[1..n] of string;
i,p1,p2,p3,kat,zarob,code:integer;
ser,zar,zarPoCat,vid,serPoCat:char;
begin
for i:=1 to n do
readln(s[i]);
for i:=1 to n do
begin
p1:=pos(' ',s[i]);delete(s[i],p1,1);
val(s[i],kat,code);
p2:=pos(' ',s[i]);delete(s[i],p2,1);
p3:=pos(' ',s[i]);delete(s[i],p3,1);
writeln(kat);
end;end.
сделал наброски с проверкой но не работает переменная kat 0