Считать данные только со второго столбца - Pascal ABC

Формулировка задачи:

Здравствуйте, очень нужен код программы, который считает данные только со второго столбца и запишет в выходной файл их сумму. 5.txt

Решение задачи: «Считать данные только со второго столбца»

Листинг программы

begin
assign(f,'c:\pascal\1.txt');
reset(f);
read(f,m);
for i:=1 to m do begin 
read(f,p[i]);read(f,k[i]);
end;
readln(f);
for i:=1 to m do readln(f,s[i]);
close(f);;

Объяснение кода листинга программы

Устанавливаем путь к файлу и открываем его для чтения с помощью функции assign и reset.
Считываем первую строку из файла с помощью функции read.
В цикле с помощью for считываем данные из файла в массивы p и k с помощью функции read.
Считываем строку-разделитель с помощью readln.
В цикле с помощью for считываем строки в массив s с помощью readln.
Закрываем файл с помощью close.