помогите пожалуйста!!! дам 20 баллов

найдите ошибки в программе
Var s:string; c:integer; d:char;
...
s:='планета Земля'
c:=length(s);
d:='Земля';
c:=pos(s, 'Земля');
writeln(copy s, length(s)-1,2);
...​​

Ответ:

Var s:string; c:integer; d:char;

...

s:='планета Земля'

c:=length(s);

d:='Земля';  // d объявлено Char, a вы присваиваете строку

c:=pos(s, 'Земля');   // pos (подстрока, строка) если ищете подстроку "Земля" в s то нужно писать Pos ('Земля', s)

writeln(copy s, length(s)-1,2);  // тут я не понял что нужно вывести на дисплей