запись результата в файл

[glebcherednik]

Function UpChar(c:char):char;
var k:integer;
f:text
begin

k:=ord(c);
case C of
'а'..'п':k:=k+ord('A')-ord('a');
'р'..'я':K:=k+ord('Р')-ord('р');
'a'..'z':K:=k+ord('A')-ord('a');
end;
UpChar:=chr(k);
end;
var
s:string;i:integer;
begin 
Readln(s);
for i:=1 to length(S) do
s[i]:=UpChar(s[i]);
writeln(S);

readln;
end.

вот подскажите пожалуйста , что добавить чтобы результат записывался в файл ? например 'result.txt'
если пишу

Assign(f,'result.txt);
Rewrite(f);
и в конце

close(result);

выдает ошибку
неизвестный идентификатор f

[lowercase]

Function UpChar(c:char):char;
var k:integer;
f:text
begin

k:=ord(c);
case C of
'а'..'п':k:=k+ord('A')-ord('a');
'р'..'я':K:=k+ord('Р')-ord('р');
'a'..'z':K:=k+ord('A')-ord('a');
end;
UpChar:=chr(k);
end;
var
f:textfile;
s:string;i:integer;
begin 
Readln(s);
for i:=1 to length(S) do
s[i]:=UpChar(s[i]);
assignFile(f,'C:\result.txt');
rewrite(f);
writeln(f,S);
closeFile(f)
readln;
end.

вродебы так. вы на чем пишете то? делфи или паскаль? там просто немножко отличаются имена процедур. вобщем код выше для делфи. код ниже для паскаля. (вродебы так, если мне память не изменяет, в компиляторе не проверял)

Function UpChar(c:char):char;
var k:integer;
f:text;
begin

k:=ord(c);
case C of
'а'..'п':k:=k+ord('A')-ord('a');
'р'..'я':K:=k+ord('Р')-ord('р');
'a'..'z':K:=k+ord('A')-ord('a');
end;
UpChar:=chr(k);
end;
var
f:text;
s:string;i:integer;
begin 
Readln(s);
for i:=1 to length(S) do
s[i]:=UpChar(s[i]);
assign(f,'C:\result.txt');
rewrite(f);
writeln(f,S);
close(f)
readln;
end.

[glebcherednik]

Сообщение от lowercase

Function UpChar(c:char):char;
var k:integer;
f:text
begin

k:=ord(c);
case C of
'а'..'п':k:=k+ord('A')-ord('a');
'р'..'я':K:=k+ord('Р')-ord('р');
'a'..'z':K:=k+ord('A')-ord('a');
end;
UpChar:=chr(k);
end;
var
f:textfile;
s:string;i:integer;
begin 
Readln(s);
for i:=1 to length(S) do
s[i]:=UpChar(s[i]);
assignFile(f,'C:\result.txt');
rewrite(f);
writeln(f,S);
closeFile(f)
readln;
end.

вродебы так. вы на чем пишете то? делфи или паскаль? там просто немножко отличаются имена процедур. вобщем код выше для делфи. код ниже для паскаля. (вродебы так, если мне память не изменяет, в компиляторе не проверял)

Function UpChar(c:char):char;
var k:integer;
f:text;
begin

k:=ord(c);
case C of
'а'..'п':k:=k+ord('A')-ord('a');
'р'..'я':K:=k+ord('Р')-ord('р');
'a'..'z':K:=k+ord('A')-ord('a');
end;
UpChar:=chr(k);
end;
var
f:text;
s:string;i:integer;
begin 
Readln(s);
for i:=1 to length(S) do
s[i]:=UpChar(s[i]);
assign(f,'C:\result.txt');
rewrite(f);
writeln(f,S);
close(f)
readln;
end.

в паскале, ошибку пишет в строчке предпоследней
readln;

"ожидался оператор"

[Arigato]

glebcherednik
А вы совсем уже подумать не можете?

[glebcherednik]

Сообщение от Arigato

glebcherednik
А вы совсем уже подумать не можете?

Arigato, я думаю. не получается. я бы не спрашивал

[phomm]

Точки с запятыми проверь