строки

[morgan97]

написал простейшую программу- не работает найдите пожалуйста почему

var a:string;
begin
  readln(a);
  upcase(a);
  writeln(a);
end.

[New man]

А какие ошибки дает?

[Serge_Bliznykov]

1) она не то, что не работает,
она даже не компилируется.
И почему не компилируется пишет нормальным английския языком!
Если используете какую-то процедуру/функцию, так почитайте, что она принимает на входе, что выдаёт на выходе.
функция Upcase принимает один символ (char ) и возвращает один символ (тоже char)

2) даже если бы эта функция и возвращала строку - вы всё равно теряете результат действия функции (его надо либо выводить, либо присваивать.

3) более правильно будет так:

var a : string;
    i : integer;
begin
  readln(a);
  for i:=1 to Length(a) do
    a[i] :=  upcase(a[i]);
  writeln(a);
  readln; {это чтобы на экране всё осталось до нажания Enter}
end.

4) и последнее. upcase в TurboPascal обрабатывает только английские буковки, все остальные останутся без изменений.