Пишет что не верное количество параметров процедуры в чём ошибка

Программист ыыыыы

Надо ведь сохранять то что вводят, перед тем как спрашивать про еще одну запись..

type chuvak = record // чувак
name: string; // имеет имя
ukrf: integer; // и статью
end;
var
chuvaki: array of chuvak; // чуваки - это несколько чуваков
nn: string; // для принятия ответа про имя
st: integer; // для принятия ответа про статью
e: string; // для принятия ответа про ещё
begin
repeat // повторяем всё что дальше
var noviy := new chuvak; // создаем нового чувака
write('Как зовут посона? > '); // интересуемся про имя
readln(nn); // получаем ответ
noviy.name := nn; // записываем себе
write('Какая статья? > '); // интересуемся про статью
readln(st); // получаем ответ
noviy.ukrf := st; // записываем себе
setLength(chuvaki, length(chuvaki)+1); // добавляем место для чувака
chuvaki[high(chuvaki)] := noviy; // добавляем его в конец списка
write('Ещё чувак? [n - нет] > '); // интересуемся есть ли ещё чуваки
readln(e); // получаем ответ
until e = 'n'; // если ответ "n", то хватит расспросов
writeln('А вот и все чуваки:');
for var i := 0 to high(chuvaki) do // по очереди про каждого чувака
writeln(chuvaki[i].name, ' - ст. ', chuvaki[i].ukrf); // пишем имя и статью
end.

Нахрена я это писал..

описали 3 параметра в процедуре, а вызываете с двумя

а еще мож тут write('ФИО, Статья УК', fio, st);

Давай вспомним школу и вместе посчитаем

newzapis(nn,e:string;s:integer); //3
newzapis(nn,st); //2