Строчные и прописные буквы Опции

[18192123]

В файле, содержащем строки, содержатся русские имена. Проверить, все ли они начинаются с прописной буквы, если нет, то исправить эту ошибку. Записать полученные данные в новый файл.

трудность в том, что не знаю , как проверить и исправить ошибку.
предполагается, что имена разделяются в строке пробелом.

[Sundery]

var a:array [1..10] of string;
    i,tmp:integer;
begin
s[1]:='afas';
s[2]:='Ccvn';
s[3]:='jfg';
s[4]:='Hdfjags';
s[5]:='tujdm';
--------------------------
for i:=1 to 5 do begin
  tmp:=ord(s[i,1]);
  if tmp in [97..122] then begin
    s[i,1]:=chr(tmp-32);
  end;
  writeln(s[i]);
end;
--------------------------
end.

вроде бы то, что тебе надо

Сообщение отредактировано: Sundery - 11.01.2007 0:24