Написала программу. Скажите пожалуйста, что не так, почему программа не работает?
В 49 строке выдает вот это:
Program1.pas(49) : Ошибка времени выполнения: Input string was not in a correct format.
49 строка вот эта
readln (F1, res.num, res.cс1, res.cс2);
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
program perevodcc;
const A:string[16]='0123456789ABCDEF';
type results = record
cс1,cс2:longint;
num, N:string
end;
var res: results;
var N: string;
var num: string;
var cс1,cс2:longint;
var i: integer;
F1: text;
function inten(K:string;s:longint):longint;
var i, sum1: longint;
var sum:real;
const A:string[16]='0123456789ABCDEF';
begin
sum:=0;
for i:=1 to length(K) do
sum:= sum +(pos(K[i],A)-1) * power(s, (length(K)-i));
sum1:=trunc(sum);
inten:=sum1;
end;
function outten(K,s:longint):string;
var sum:string;
const A:string[16]='0123456789ABCDEF';
begin
sum:='';
while K<>0 do
begin
sum:=A[(K mod s)+1]+sum;
K:=K div s
end;
outten:=sum
end;
begin
assign (F1, 'C:\PABCWork.NET\perevodcc.txt');
reset (F1);
readln (F1);
readln (F1);
while not EOF(F1) do
begin
readln (F1, res.num, res.cс1, res.cс2);
end;
rewrite (F1);
N:=outten(inten(num,cс1),cс2);
writeln (F1, res.N);
begin
for i := 1 to Length(num) do
begin
if pos(num[i],A)=0 then begin
N:= 'Число неверно';
writeln (F1, res.N);
end;
end;
end;
begin
if (( cс1> 16) or (cс1 < 2)) then begin
N:= 'Система счисления неверная';
writeln (F1, res.N);
end;
end;
begin
if (( cс2> 16) or (cс2 < 2)) then begin
N:= 'Система счисления неверная';
writeln (F1, res.N);
end;
end;
close (F1)
end.
