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

[Nightt]

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

выручайте люди

[vovk]

для дельфи так можно

var
Tfl1,Tfl2:TextFile;
s:String;
begin
 AssignFile(tfl1,'111.txt');
 AssignFile(tfl2,'222.txt');
 Reset(tfl1);
 Rewrite(tfl2);
 while Not Eof(Tfl1) do
 begin
   readln(Tfl1,s);
   Writeln(tfl2,UpperCase(s));
 end;
  CloseFile(Tfl1);
  CloseFile(Tfl2);

end;

[Nightt]

мне бы на паскаль блее

[Nightt]

Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле g те компоненты файла f, которые являются четными.

помогите плз

[vovk]

вам уже во фриланс, ато привыкните

[NSvirus]

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

мне бы на паскаль блее

Почти также, только при считывании символа переводишь его в аскКОд отнимаешь 32 и обратно в символьный тип.