Здравствуйте, Юдин Евгений Сергеевич.

Решение первой задачи (я позволил себе назвать требуемую функцию LastPos, поскольку Poz_end — коряво (ни английский, ни русский) и по смыслу неверно — "позиция конца")


Решение второй задачи приведено в приложении.
Программа проверена на табличке примеров со страницы википедии Римские цифры

Обе программы протестированы в среде Borland Pascal 7.0. Чтобы текст смотрелся нормально, установите шаг табуляции = 4.

Успехов!

Приложение:
{ Преобразование чисел из римской системы в десятичную }
program q178073b;

{
Перевод римского числа в арабское.
Функция возвращает числовое значение переданной строки или
отрицательное число при ошибке:
-1 - встретился недопустимый символ
-2 - слишком длинная строка
}
function rome2arabic( a: string ): longint;
var i, len: integer;
b: array [1..50] of integer;
s: longint;
begin
len := length( a );
if len > 50 then begin
rome2arabic := -2; { слишком длинная строка }
exit;
end;

for i := 1 to len do begin
if not (a[i] in ['I','V','X','L','C','D','M']) then begin
rome2arabic := -1; { встретился недопустимый символ }
exit;
end;
case a[i] of
'I': b[i] := 1;
'V': b[i] := 5;
'X': b[i] := 10;
'L': b[i] := 50;
'C': b[i] := 100;
'D': b[i] := 500;
'M': b[i] := 1000;
end;
end;
s := b[1];
for i := 2 to len do begin
inc( s, b[i] );
if b[i-1] < b[i] then dec( s, 2*b[i-1] )
end;
rome2arabic := s;
end;

var s: string;
n: longint;

begin
while true do begin
write( 'Римское число или [Enter] для выхода: '); readln( s );
if length(s) = 0 then exit;

n := rome2arabic( s );
if n < 0 then
writeln( 'Недопустимый символ для числа в римской системе' )
else
writeln( n );
end;
end.