Доброго времени суток. Собственно, вылезает такая ошибка: «(» expected
Красным выделено, место, куда указывает компилятор.
program lab1;
uses crt;
var
f:text;
s_string,s_full:string;
i:integer;
function gorner(num:string;base:integer;
var i:integer;char:string):integer;
begin
while (i<=length(num)) do
begin
if(ord(num[i])in[49..57]) then
gorner:=gorner*base+ord(num[i])-ord('0'))
else
begin
if(ord(num[i])in[97..122])
then num[i]:=chr(ord(num[i])+32);
gorner:=gorner*base-ord('A')+10;
end;
end;
end;
begin
clrscr;
assign(f,'lab1.txt');
reset(f);
while not eof(f) do
begin
readln(f,s_string);
s_full:=s_full+s_string;
end;
write(s_full);
close(f);
readln;
end.