[trangle]

пожалуйста,кто разбирается в процедурах и функциях,помогите доделать программу,которая заменяет строчные латинские буквы на прописные.

нужно сделать так,чтобы не портились исходные данные и выводились исходные данные и результат в файл. с вводом из файла вроде получилось
ввод,вывод и обработку осуществлять в процедурах и функциях
вот что сделал:

Код:

var st,s:string;
procedure vvodstr(var st:string); 
  fin:TextFile;
begin
  AssignFile(fin,'File1.txt');
  Reset(fin);
  readln(fin,st);
  CloseFile(fin);
end;
function zamena(st:string):integer;
var
 s:string;
 i: byte;
begin
 for i:=1 to length(st) do
  s[i]:=UpCase(st[i]);
end;

procedure vivodres(s:string); 
var
  i: byte;
  fout:TextFile;
begin
  AssignFile(fout,'File2.txt');
  Rewrite(fout);
  for i:=1 to length(st) do
  writeln(fout,'Rezultat: ',s[i]);
  CloseFile(fout);
end;
begin
 vvodstr(st);
 zamena(st);
 vivodres(s);
end.