из паскаля в консоль делфи

[Андрей.12]

вот код на паскале

var s,a:string;
 i,k:integer;
begin
writeln('vvedite stroky');
readln(s);
writeln('vvedite sinvol');
readln(a);
for i:=1 to length(s) do
if s[i]=a then k:=k+1;
write(k);
readln;
end.

как его перевести в консоль?

[Grag]

Смотри тему http://www.programmersforum.ru/showthread.php?t=99621

[Андрей.12]

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils;
 var s,a:string;
 i,k:integer;
begin
writeln('vvedite stroky');
readln(s);
writeln('vvedite sinvol');
readln(a);
for i:=1 to length(s) do
if s[i]=a then k:=k+1;
write(k);
readln;
end.

изменил, не верно считает, хотя паскаль верно выдает ответ

[Пепел Феникса]

а где инициализация k?
у вас она равна чему угодно...